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Vorwort 


Als wir Anfang des Jahres 1986 mit dem DATA BECKER Ver¬ 
lag in Verhandlungen über ein Buchprojekt traten, lieferte uns 
der zuständige Lektor, wohl ohne es zu ahnen, das entscheidende 
Argument, dieses Buch und kein anderes zu schreiben - den 
Schneider-CPC. Wir beide hatten uns, seitdem die ersten Exem¬ 
plare dieses Rechners erhältlich waren, intensiv mit ihm aus¬ 
einandergesetzt. Der eine, Jürgen Steigers, indem er als einer der 
Autoren des CPC-Intern tief in die Bytes des Betriebssystems 
vordrang und der andere, Thomas A. Vervost, als absoluter 
Kenner schneller Grafikalgorithmen, die er für den bekannten 
ProfiPainter CPC entwickelte. Auf dieser Grundlage sagten wir 
zu, das große Grafikbuch zum CPC zu schreiben. 

Nicht nur, weil unsere Freunde von uns sagen, wir seien hoff¬ 
nungslose Pedanten, setzte sich schnell der Anspruch fest, ein 
Standardwerk in Sachen Grafik auf dem Schneider-CPC zu 
erschaffen. Mit diesem selbstgesetzten- Ziel vor Augen entstand 
in Monaten intensiver Tag- und zermürbender Nachtarbeit das 
Buch, in dem Sie jetzt zu lesen begonnen haben. 

Dieses Buch wird Ihnen nicht nur einen Einblick in die Grafik¬ 
programmierung geben, sondern dieses Thema erschöpfend be¬ 
handeln. Es liegt ein weiter Weg vor Ihnen, wenn Sie noch nie 
Grafiken programmiert haben, aber auch wenn Sie über Vor¬ 
kenntnisse verfügen, werden Ihnen viele Dinge neu und unbe¬ 
kannt sein. Doch nur Mut - nach unserer Erfahrung kann jeder, 
der Willens ist, in die tiefen Geheimnisse der Gra¬ 
fikprogrammierung vorstoßen. 

Damit auch Sie, während Sie dieses Buch lesen, Schritt für 
Schritt jene professionellen Techniken erwerben, die uns bei der 
Entwicklung unserer Projekte weitefrhalf^n, haben wir die Ma¬ 
terie Grafik so für Sie aufbereitet, daß sie ohne unüberwindbare 
Schwierigkeiten nachvollzogen werden kann. Wie Sie die Gra¬ 
fikfähigkeiten Ihres CPC voll ausschöpfen können, werden wir 
Ihnen zeigen. Bestimmt. 


Jürgen Steigers 


Thomas A. Vervost 
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1. Einleitung 


Die Evolution der Computergrafik 

Rasterorientierte Computergrafik ist heute etwas selbstverständ¬ 
liches. Sie wird beispielsweise in Kinofilmen, für Werbespots, 
von Firmen jeglicher Art oder auch vom Computer-Hobbyisten 
immer häufiger eingesetzt. Viele Menschen,' die heute einen 
grafikfähigen Computer kaufen, können sich aus diesem Grund 
kaum vorstellen, daß die Computergrafik noch vor wenigen 
Jahren eine Domäne der Großrechner war. Um ihnen die 
Zusammenhänge der nahezu exponentiellen Entwicklung 
begreiflich zu machen, folgt an dieser Stelle ein kleiner Streifzug 
durch die Evolution der Computergrafik. 

1966 hatten die besten verfügbaren Computer eine Speicherka¬ 
pazität von etwa 16 KByte. Beim Vergleich mit einem CPC 464 
fällt auf, daß dieser uns heute den vierfachen Arbeitsspeicher - 
nämlich 64 KByte - zur Verfügung stellt. Davon fallen alleine 
16 KByte auf den für Grafiken verantwortlichen Bildschirm¬ 
speicher. Damals konnte aus Speicherplatzgründen natürlich nur 
sehr kleine Bereiche des Arbeitsspeichers als Bildschirmspeicher 
reserviert werden. Da die Größe des Bildschirmspeichers aber 
für die Feinheit der Computergrafiken maßgebend sind, konnte 
man dem zufolge nur sehr grobe Bilder zeichnen. Man entschloß 
sich letztendlich, auf die Bildschirmausgabe gänzlich zu 
verzichten und weiterhin den Drucker als Datenausgabegerät zu 
verwenden. 

Für grafische Anwendungen ist das sogenannte Vektorgrafik- 
system entwickelt worden. Dabei wurden direkt mit dem Katho¬ 
denstrahl Linien auf eine stark mit Phosphor beschichtete Bild¬ 
röhre gezeichnet. Im Computer selbst entstanden nur sehr 
wenige Informationen, die sich nur auf die Steuerung des Elek¬ 
tronenstrahls beschränkten. Da der Bildschirm in Folge seiner 
starken Phosphorbeschichtung bis zu einer Stunde nachleuchtete, 
konnte der Rechner in dieser Zeit für andere Zwecke verwendet 
werden. 
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Diese Methode erwies sich jedoch nach kurzer Zeit als extrem 
uneffektiv, da beim vorzeitigen Löschen eines Bildes ein unan¬ 
genehmer Blitz aufzuckte, und so keine animierte (bewegte) 
Grafik mit fließenden Bewegungen geschaffen werden konnte. 
Dieses Problem ließ die damaligen Computergrafik-Experten 
nicht ruhen und so wurden bald sogenannte Refresh-Bildröhren 
verwendet. Sie erneuern das Bild 50mal in der Sekunde und 
schaffen somit die Grundvoraussetzung für eine flimmerfreie 
Anzeige. Das Bild ist jedoch nur flackerfrei, wenn die Vektoren 
(Linien) eine bestimmte Länge nicht überschreiten, da sonst 
unweigerlich Interferenzen auftreten. Diese Synchronisationspro¬ 
bleme entstehen, weil sich das Intervall zwischen zwei Halbbil¬ 
dern (Bildschirm-Aufbauphasen) verlängert. Aber auch dieses 
System hatte Nachteile. Beispielsweise war es unmöglich, mittels 
Vektorgrafik gefüllte Flächen auf dem Bildschirm auszugeben. 

Die Vektorgrafik übrigens hat sich bis in die heutige Zeit 
durchgesetzt, da sie sich hervorragend zur Darstellung 
dreidimensionaler Objekte eignet. Aus diesem Grund ist 
ihr auch in diesem Buch ein ganzes Kapitel gewidmet. 

Einige Jahre später hatte sich der Datenmonitor in Folge der 
immer größer werdenden Speicherkapazität durchgesetzt. Damit 
war auch die erste rasterorientierte - wenn auch sehr schwach 
auflösende - Computergrafik geboren. Mit Hilfe der Bild¬ 
schirmzeichen konnten Wissenschaftler erstmals einfache Grafi¬ 
ken wie Balkendiagramme oder das grobe Abbild einer Sinus¬ 
kurve auf einem Datensichtgerät ausgeben und ohne großen Pro¬ 
grammieraufwand in eine beliebig andere Stuktur umwandeln. 
Weiterhin war es problemlos möglich, Text mit Grafik zu 
verbinden, da letztere ja aus Textzeichen zusammengesetzt war. 

Diese einfachen Grafiken befriedigten die Programmierer ver¬ 
ständlicherweise nicht auf Dauer - Kreise oder Geraden konnten 
in keinster Weise auf dem Bildschirm dargestellt werden. Um 
diese Dinge möglich zu machen wurden Sonderzeichen wie 
Striche, Kreise und Dreiecke in den Zeichensatz integriert. Die 
damit erstellten Grafiken waren von deutlich geringerer 
Abstraktion und konnten bei geschickter Anwendung durchaus 
komplexe Dinge verbildlichen. Die PCs der ersten Generation 
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beinhalteten übrigens derartige Zeichensätze. Die Grafikauflö¬ 
sung des legendären TRS-80 (128 mal 48 Punkte) basierte 
beispielsweise auf 64 vordefinierten Sonderzeichen. 

Aber auch diese Methode hatte Nachteile. Erstens konnte durch 
die mangelnde Auflösung nicht jede beliebige Form dargestellt 
werden, und zweitens war bei vielen Rechnern eine fließende 
grafische Animation kaum möglich. Um auch diese beiden Fak¬ 
toren zu neutralisieren, wurde ein frei programmierbarer Zei¬ 
chensatz in die Computer implementiert. Er gestattete dem 
Programmierer eigene, speziell auf die Anwendung zugeschnit¬ 
tene Zeichen zu definieren, und somit bei entsprechendem 
Programmieraufwand jeden einzelnen Punkt der Grafik zu 
manipulieren. 

Heute profitieren wir - auch Sie als Benutzer des Schneider- 
CPC - von der rasterorientierten Computergrafik. Bei diesem 
Verfahren wird ein großer Teil des Arbeitsspeichers für das 
Speichern einer hochauflösenden Grafikseite reserviert. Jedes Bit 
repräsentiert dabei einen gesetzten oder gelöschten Punkt auf 
dem Bildschirm. Objekte jeglicher Art lassen sich nach diesem 
Prinzip Punkt für Punkt - wie ein Mosaik - zusammensetzen. 
Die so erzielte Auflösung ist dabei nur eine Frage des zur Ver¬ 
fügung stehenden Speicherplatzes. Soll eine farbige Grafik 
generiert werden, muß der Bildschirmspeicher sogar um ein 
Vielfaches der sonst benötigten Speicherzellen erweitert werden. 

In diesem Buch werden Sie sämtliche oben vorgestellten 
Grafikgenerierungs-Verfahren wiederfinden, denn der Schnei- 
der-CPC hat trotz seines außergewöhnlich niedrigen Preises 
herausragende Grafikeigenschaften. Sie werden lernen, die 
verschiedenen Verfahren optimal einzusetzen und so die Kapa¬ 
zität Ihres Computers in Zukunft vollständig auszunutzen. 
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2. Punkt, Punkt, Komma, Strich... 


Betrachtet man die schlichte Einschaltmeldung der CPC-Rech- 
ner, so erhält man nicht den geringsten Hinweis darauf, welche 
ungeahnten Grafikeigenschaften diese Rechner in ihrem Inneren 
bergen. So bieten sie beispielsweise die identische Grafikauflö¬ 
sung (640 mal 200 Punkte) eines IBM-PCs mit Color-Grafik- 
karte - und das serienmäßig. Aber damit nicht genug - das 
Auflösungvermögen ist bei den CPCs nicht auf eine bestimmte 
Anzahl von Punkten festgelegt sondern kann in drei verschie¬ 
denen Stufen verändert werden. Jede dieser Stufen, die auch als 
Mode bezeichnet werden, wirkt sich neben der Auflösung auch 
auf die Anzahl der verfügbaren Farben aus. 

Da es die Eigenart aller CPCs ist, auch den Text im Grafikmo¬ 
dus auf dem Bildschirm darzustellen, wirken sich die drei er¬ 
wähnten Modi sowohl auf die Text- als auch auf die Grafikdar¬ 
stellung aus. Aus der Darstellung von Text im Grafikmodus 
resultiert, daß der CPC grundsätzlich Text- und Grafikelemente 
beliebig mischen kann. 

Die Modi wirken sich im Grunde genommen auf das Auflö¬ 
sungsvermögen des Bildschirms und wegen der Textdarstellung 
in Form von Grafik auch auf die Anzahl der darstellbaren Zei¬ 
chen pro Zeile aus. Da der Speicherplatz, in dem die auf dem 
Bildschirm dargestellten Informationen liegen beschränkt ist, er¬ 
gibt sich quasi zwangsläufig, daß bei steigender Auflösung die 
Anzahl der darstellbaren Farben sinkt. Zwangsläufig deshalb, 
weil die Farbinformationen untrennbar mit den Bildinformatio¬ 
nen verbunden und zusammen mit ihnen im Bildschirmspeicher 
abgelegt sind. Sie sehen schon an dieser Stelle die immense 
Wichtigkeit der Modi, so daß wir uns entschlossen haben, ihre 
Erklärung an den Anfang unserer Betrachtungen über die Grafik 
auf dem CPC zu stellen. 

Nach dem Einschalten befindet sich der Rechner grundsätzlich 
in MODE 1, in dem er 40 Zeichen pro Zeile bei vier von 27 
möglichen Farben darstellen kann. Um nun einen anderen 
Modus einzustellen, gibt man einfach das BASIC-Kommando 
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MODE mit einem Leerzeichen und danach die Nummer des ge¬ 
wünschten Modus ein. Nach dem Bestätigen der Eingabe mit der 
RETURN-Taste löscht der Computer den Bildschirm, aktiviert 
den neuen Modus und erklärt sich mit einem "Ready" in der lin¬ 
ken oberen Ecke des Bildschirms (HOME-Position) für den 
Empfang des nächsten Befehls bereit. 

Die nachstehende Tabelle zeigt die verschiedenen Auswirkungen 
aller verfügbaren MODE-Kommandos: 


Mode 0: 20 Zeichen pro Zeile 

160 mal 200 Punkte 
16 von 27 Farben 

Mode 1: 40 Zeichen pro Zeile 

320 mal 200 Punkte 
4 von 27 Farben 

Mode 2: 80 Zeichen pro Zeile 

640 mal 200 Punkte 
2 von 27 Farben (monochrom) 


Wann Sie welchen MODE verwenden sollen, kann nicht generell 
gesagt werden; wir empfehlen zum Beispiel MODE 2 mit 80- 
Zeichen-Auflösung für die Bearbeitung von Texten und MODE 
1 für Grafiken, bei denen es darauf an kommt, daß sie verzer¬ 
rungsfrei auf dem Bildschirm wiedergegeben werden. Der ver¬ 
bleibende MODE 0 sollte in Folge seiner niedrigen Bildschrim- 
auflösung nur Verwendung finden, wenn möglichst viele Farben 
gleichzeitig dargestellt werden müssen - Anwendungsbeispiele: 
Analyse- und Spielprogramme. 


2.1 Der erste Punkt erscheint 

Die Grafik des Schneider-CPC gehört, wie Sie schon aus dem 
einleitenden Kapitel wissen, zur Gattung der rasterorientierten 
Bildschirmgrafiken. Rasterorientiert heißt, daß sich das Bild aus 
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vielen kleinen Punkten zusammensetzt, die einzeln an- und aus¬ 
geschaltet bzw. umgefärbt werden können. Diese Punkte nennt 
man in der Fachsprache "Pixels”. 

Die Verwaltung einer derartigen Rastergrafik ist sehr kompli¬ 
ziert - der Weg eines Pixels zum Bildschirm für den Laien recht 
unverständlich, da er massive Kenntnisse der Maschinenpro¬ 
grammierung voraussetzt. Der CPC hat aber einen derart lei¬ 
stungsstarken BASIC-Interpreter integriert, der mit herrausra- 
genden Grafikoptionen selbst den reinen BASIC-Programmierer 
die Grafikkapazität seiner Rechners zu einem großen Anteil 
ausschöpfen läßt. Dies ist auch ohne genaue Kenntnis der im 
Computer ablaufenden Vorgänge möglich. 

Ein Beispiel für einen derartigen Befehl des Locomotive-BASIC 
ist das Kommando PLOT, mit dem ein Pixel auf dem Bildschirm 
gesetzt werden kann. Zur genaueren Bestimmung des PLOT- 
Kommandos sind vier Parameter erforderlich. Die ersten beiden 
Parameter legen die absolute Position fest, an der das Pixel zu 
setzen ist - diese Angaben sind, zur Erfüllung der Syntax des 
Befehls, unbedingt nötig. Die beiden folgenden Parameter sind 
optional. Mit ihnen kann die Farbe des zu setzenden Bildpunktes 
und sein Interagieren mit dem Hintergrund bestimmt werden. 
Die letzten Angaben sollen aber an dieser Stelle nicht von Be¬ 
deutung sein. 


Syntax: 

PLOT X-Koordinate,Y-Koordinaten[,Farbstift[.Farbmodus 1 ]^ 


Betrachten wir den PLOT-Befehl einmal im Detail: Mit PLOT 
wird zunächst nur ein Pixel auf den Bildschirm gebracht; je 
nach gesetztem MODE (Auflösungsvermögen) ergibt sich aber 
eine unterschiedlich Ausgabe auf dem Bildschirm. Das gesetzte 
Pixel ist dem Augenschein nach, abhängig vom MODE, unter¬ 
schiedlich groß. Untersucht man dieses Phänomen genauer, so 
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wird man feststellen, daß ein Pixel in MODE 0 genau so groß ist 
wie zwei Pixel in MODE 1 oder vier Pixel in MODE 2. Weiter 
wird man finden, daß sich ein und dasselbe Pixel in MODE 0 
mit acht verschiedenen PLOT-Kommandos setzen läßt und ana¬ 
log ein Pixel in MODE 1 mit vier, in MODE 2 mit zwei. Die 
Erklärung ist einfacher, als es auf den ersten Blick scheinen 
mag. 

Der CPC rechnet intern immer mit einem Auflösungsvermögen 
von 640 mal 400 Punkten. Die maximale arithmetische Y-Auf¬ 
lösung entspricht somit dem doppelten der realen Y-Auflösung. 
Diese Tatsache ist wichtig, um ein verzerrungsfreies Zeichnen 
im MODE 2 zu gewährleisten und erklärt die Adressierbarkeit 
eines jeden Pixels (unabhängig vom MODE) mit zwei verschie¬ 
denen Y-Koordinaten. 

Da die rechnerische Auflösung in X-Richtung bei allen drei 
Modi mit der von MODE 2 identisch ist, muß zwangläufig ein 
Pixel in einem MODE mit geringerer Auflösung als der von 
MODE 2 größer erscheinen. Deshalb setzt sich ein Pixel, arith¬ 
metisch, in MODE 0 und MODE 1 aus mehreren Pixeln zusam¬ 
men und kann damit durch mehrere unterschiedliche X-Koordi- 
naten adressiert werden. Der CPC transferiert die eingegebenen 
Koordinaten automatisch in die entsprechende Auflösungsstufe 
und das Pixel erscheint in der ihm durch den gesetzen MODE 
aufgezwungenen Größe auf dem Bildschirm. 

Dieses auf den ersten Blick unsinnige Verfahren hat einen ent¬ 
scheidenden Vorteil. Der Benutzer muß nämlich die Koordinaten 
bei der Auswahl eines anderen MODE nicht erst mühevoll neu 
berechnen. Der vollständige Zusammenhang wird noch einmal 
von Abbildung 1 verdeutlicht: 
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MODE 0 


MODE 1 


MODE 2 




i 


PLOT 4,4 

PLOT 4,4 

PLOT 4,4 

PLOT 4,5 

PLOT 4,5 

PLOT 4,5 

PLOT 5,4 

PLOT 5,4 


PLOT 5,5 

PLOT 6,4 

PLOT 6,5 

PLOT 7,4 

PLOT 7,5 

PLOT 5,5 



Abb. 1: Auswirkung der MODEs auf das PLOT-Kommando 


Neben den bisher besprochenen Zusammenhängen hat der 
PLOT-Befehl noch eine weitere nicht zu unterschätzende Auf¬ 
gabe. Er positioniert, neben der unmittelbar sichtbaren Ausgabe 
eines Pixels, durch seine X/Y Parameter einen imaginären Gra¬ 
fikcursor. 

Dieser Grafikcursor wird, im Gegensatz zum herkömmlichen 
Textcursor, zu keinem Zeitpunkt auf dem Bildschirm dargestellt, 
sondern ist lediglich eine vom Computer verwaltete Positionsan¬ 
gabe, in der die letzten Koordinaten, an denen eine Ausgabe auf 
dem Grafikbildschirm erfolgt ist, aufbewahrt werden. Die mit 
beispielweise dem PLOT-Befehl beeinflußte Position des Gra¬ 
fikcursors bleibt auch nach Abarbeitung des Befehls im Rechner 
erhalten. 
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Diese Tatsache ist in vielen Fällen sinnvoll, da einige Grafikbe¬ 
fehle keine integrierte Koordinatendefinition zulassen, i.e. sie 
bestimmen ihre Koordinaten an Hand der Position des Grafik¬ 
cursors. Damit derartige Befehle nicht ausschließlich von Kom¬ 
mandos mit Parameterdefinition abhängig sind, die Auswirkun¬ 
gen auf den Bildschirminhalt zeigen, befindet sich im Befehls¬ 
satz Ihres CPC eine spezielle Anweisung, die den Grafikcursor 
auf einen beliebigen Bildpunkt positioniert - der MOVE-Befehl. 
Seine Syntax ist abgesehen vom Schlüsselwort mit der des 
PLOT-Kommandos identisch. 


Syntax: 


MOVE X-Koordinate,Y-Koordinaten[,Färbsti 


ft 1 


[.Farbmodus 1 ]] 


Die Abbildung 2 verdeutlicht im Unterschied zur Abbildung 1 
nur die Position des Grafikcursors und darf nicht insofern 
mißverstanden werden, daß an dieser Stelle ein Pixel gesetzt 
wird. Auch hier wirken sich die drei Modi in gleicher Weise wie 
bei PLOT aus. 

Das MOVE-Kommando, und damit das Positionieren des Gra¬ 
fikcursors, findet insbesondere im Zusammenhang mit relativen 
Grafikbefehlen oder der Textdarstellung im Grafikmodus seinen 
Anwendungsbereich, da so der Startpunkt pixelgenau bestimmt 
werden kann. Relative Grafikbefehle funktionieren im Grunde 
genau wie ihre absoluten Abbilder, nur mit dem Unterschied, 
daß ihre X- und Y-Parameter einen Offset repräsentieren, der 
zu den Koordinaten des Grafikcursors addiert wird. 


l 
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MODE 0 



MODE 4,4 
MODE 4,5 
MODE 5,4 
MOUE 5,5 
MOUE 6,4 
MOUE 6,5 
MOUE 7,4 
MOUE 7,5 


MODE 1 



MOUE 4,4 
MOUE 4,5 
MOUE 5,4 
MOUE 5,5 


MODE 2 



MOUE 4,4 
MOUE 4,5 


Abb. 2: Auswirkung der MOD Es auf das MOVE-Kommando 


2*2 Vom Punkt zur Linie 

Nehmen wir doch einmal unser bis jetzt erlerntes Handwerks¬ 
zeug zusammen. Wir wissen, daß im Rahmen der rasterorien¬ 
tierten Grafik grundsätzlich alle Bildschirmausgaben aus einzel¬ 
nen Punkten zusammengesetzt werden. Ergo muß es uns möglich 
sein, allein mit den Kommandos PLOT und MOVE ein größeres 
Grafikelement zu kreieren - eine Linie. 

Viele Punkte, die nebeneinander auf dem Bildschirm aufleuch- 
ten erwecken beim Betrachter den Anschein, daß es sich um 
einen geschlossenen Linienzug handelt. Mit einer FOR-TO- 
NEXT-Schleife und der PLOT-Funktion kann eine horizontale 
oder vertikale Linie auf dem Bildschirm erzeugt werden. Die 
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folgenden Programme verdeutlichen, wie aus vielen Pixels eine 
Linie zusammengesetzt wird. 


10 

20 

30 

40 

50 

60 


REM ZIEHEN EINER HORIZONTALEN LINIE 
CLS 

FOR X=0 TO 639 
PLOT X.200 
NEXT 
END 


10 

20 

30 

40 

50 

60 


REM ZIEHEN EINER VERTIKALEN LINIE 
CLS 

FOR Y=0 TO 399 
PLOT 320,Y 
NEXT 
END 


Beim Ablauf der oben aufgeführten Programme können Sie 
deutlich das Verschmelzen der einzelnen Bildpunkte erkennen. 
Die Ausführungsgeschwindigkeit ist, da es sich um BASIC-Pro- 
gramme handelt, sehr gering und aus diesem Grunde wurde im 
Betriebssystem des Schneider-CPC eine Routine implementiert, 
die Linien mit vielfacher Geschwindigkeit zeichnet. Diese ist 
von der BASIC-Ebene aus mit dem sogenannten DRAW-Befehl 
zu erreichen. 


Syntax: 

DRAU X-Koordinate,Y-Koordinate!,Farbstift[.Farbmodus 1 ]] 


Die Startkoordinaten einer mittels DRAW-Befehl generierten 
Linie entsprechen der aktuellen Position des uns bereits 
bekannten Grafikcursors. Aus diesem Grund sind zur Spezifika- 
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tion der DRAW-Funktion nur zwei Koordinaten erforderlich, 
die den Zielpunkt der Linie bestimmen. Auch hier gelten, wie 
bei den übrigen Grafik-Kommandos, die bei PLOT und MOVE 
angestellten Betrachtungen über die verschiedenen Grafikmodi. 
Exemplarisch ist der Aufbau einer Linie in Abbildung 3 für 
MODE 1 gezeigt. 


MODE 1 



MOUE 2,2 

DRRID 34,12 

MOÜE 2,3 

DR RU) 34,13 

MOUE 3,2 

DRR1U 35,12 

MOUE 3,3 

DRRID 35,13 


Abb. 3: Beispiel einer Linie in MODE 1 


Die dargestellte Linie kann durch beliebige Kombination der in 
der Abbildung aufgeführten MOVE- und DRAW-Kommandos 
auf dem Bildschirm erzeugt werden. Die Start- und Endkoordi¬ 
naten können in diesem Zusammenhang beliebig vertauscht wer¬ 
den, da die DRAW-Routine des Betriebssystems die Koordinaten 
automatisch in die korrekte Reihenfolge bringt. 
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2.3 Einfache geometrische Formen 

Einige kommerzielle BASIC-Interpreter stellen Befehle zur 
Verfügung, die einfache geometrische Grundstrukturen, wie 
Dreiecke, Rechtecke und Kreise, auf dem Bildschirm zeichnen. 
Das Locomotive-BASIC beinhaltet aber keine derartigen Funk¬ 
tionen, was für den Benutzer bedeutet, daß er sie selbst ent¬ 
werfen muß. Dabei muß er auf Kombinationen der Befehle 
MOVE, PLOT und DRAW zurückgreifen. Geometrische Struk¬ 
turen mit spitzen Randkonturen sind relativ einfach zu erstellen, 
da zu Generierung derartiger Objekte keine trigonometrischen 
Funktionen vonnöten sind. Das folgende Programm soll eine 
Möglichkeit aufzeigen, ein Quadrat auf dem Bildschirm mit 
DRAW-Funktionen zu erstellen. In diesem Zusammenhang wird 
gleichzeitig noch einmal der sinvolle Einsatz des oben bespre¬ 
chenden Grafikcursors demonstriert, da jeder DRAW-Befehl nur 
zwei End-Koordinaten (X2, Y2) der zu zeichnenden Linie 
benötigt. Die Start-Koordinaten (XI, Yl) entsprechen der Posi¬ 
tion des Grafikcursors, die durch Angabe der End-Koordinaten 
jedes DRAW-Befehls automatisch aktualisiert wird. 


10 REM ZEICHNEN EINES QUADRATS 
20 MODE 1 
30 CLS 

40 MOVE 100,100 
50 DRAW 100,200 
60 DRAW 200,200 
70 DRAW 200,100 
80 DRAW 100,100 
90 END 


Mit der gleichen Technik, die uns zu Erstellung unseres Qua¬ 
drats diente, können natürlich auch beliebige andere Strukturen 
wie Dreiecke oder Vielecke erstellt werden. Prinzipiell kann zur 
Realisation einer derartigen geometrischen Form das oben ste¬ 
hende Programm mit veränderter Anzahl der DRAW-Befehle 
dienen. Zur Generierung eines Dreiecks benötigen wir beispiels¬ 
weise drei DRAW-Befehle. 
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10 REM ZEICHNEN EINES DREIECKS 
20 MOOE 1 
30 CLS 

40 MOVE 100,100 
50 DRAU 150,200 
60 DRAU 200,100 
70 DRAU 100,100 
80 END 


Kreise und Ellipsen sind hingegen nur mit einem komplizierten 
Algorithmus zu berechnen, da ihre Peripherie nur mit den Pro¬ 
dukten COS(ALPHA)*X und SIN(ALPHA)*Y berechnet werden 
kann, die dann mittels PLOT-Funktion auf dem Bildschirm 
übertragen wird. Die Generierung eines Kreises ist zudem sehr 
zeitaufwendig, weil für jeden zu zeichnenden Punkt ein Sinus 
und ein Cosinus berechnet werden muß. Das nun folgende Pro¬ 
gramm zeichnet einen Kreis mit dieser konventionellen Methode. 
Im Anschluß an dieses Programm werden wir eine Technik ken¬ 
nenlernen, die den hohen Berechnungaufwand um ein Vielfaches 
reduziert. 


10 CLS 
20 DEG 

30 FOR A=1 TO 360 
40 MOVE 320,200 

50 PLOT 320+190*COS(A),200+190*SIN(A) 
60 NEXT 


Prinzipiell ist jeder Keis ein Vieleck mit unendlich vielen Eck¬ 
punkten. Diese Tatsache können wir uns insofern zunutze 
machen, daß wir die oben vorgestellte Berechnungsroutine durch 
einen Algorithmus ersetzen, der strenggenommen ein Polygon 
zeichnet, dessen Eckpunkte durch Linien verbunden werden 
können. Die Anzahl der Eckpunkte müssen dabei so gewählt 
werden, daß das entstehende Vieleck durch die Bildschirmauf- 
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lösung bedingt nicht mehr von einem Kreis unterschieden wer¬ 
den kann. 

Um die Ausführungszeit der Kreisroutine noch weiter zu stei¬ 
gern, kann in der sogenannten Viertelkreistechnik gearbeitet 
werden. Die Viertelkreistechnik basiert darauf, das nur ein 
Viertel des zu zeichnenden Kreises berechnet werden muß und 
die verbleibenden drei Viertel der Peripherie durch Spiegelung 
konstruiert werden. 

Das folgende Programm realisiert das polygone Zeichnen in 
Kombination mit der gerade vorgestellten Viertelkreistechnik. 
Da es die Berechnungszeit einer Kreisperipherie auf ein Mini¬ 
mum reduziert, werden wir es künftig in all den BASIC-Pro- 
grammen einsetzen, die mit einer Kreisfunktion arbeiten. 


100 CLS 
110 1 
120 DEG 
130 1 

140 INPUT »MITTELPUNKT X-KOORDlNATE»;XP% 
160 INPUT » Y-KOORDINAT E";YP% 

180 ' 

190 PRINT 
200 1 

210 INPUT »RADIUS X-AUSDEHNUNG";XR% 
230 INPUT » Y-AUSDEHNUNG";YR% 

250 • 

260 CLS 
270 1 

280 'ERSTE KOORDINATE 

290 1 

300 J%=0 

310 GOSUB 560 

320 X1%=X2% 

330 Yl%=Y2% 

340 ' 

350 'WEITERE KOORDINATEN 
360 • 
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370 FOR J%=6 TO 90 STEP 6 
380 GOSUB 560 
390 ' 

400 'KREIS ZEICHNEN 
410 ' 

420 MOVE XP%+X1%,YP%+Y1% 

430 DRAU XP%+X2%,YP%+Y2% 

440 MOVE XP%+X1%,YP%-Y1%+1 
450 DRAU XP%+X2%,YP%-Y2%+1 
460 MOVE XP%-X1%+1,YP%-Y1%+1 
470 DRAU XP%-X2%+1,YP%-Y2%+1 
480 MOVE XP%-X1%+1,YP%+Y1% 
490 DRAU XP%-X2%+1,YP%+Y2% 
500 1 

510 X1%=X2%:Y1%=Y2% 

520 ' 

530 NEXT 
540 ' 

550 END 
560 ' 

570 'KOORDINATEN ERMITTELN 
580 ' 

590 X2%=INT(COS(J%)*XR%+0.5) 
600 Y2%=INT{SIN(J%)*YR%+0.5> 
610 ' 

620 RETURN 


Programmbeschreibung: 

100-260 Initialisierung 

In diesem Programmteil wird der Bildschirm ge¬ 
löscht, das Gradmaß, das für Sinus und Cosinus 
notwendig ist, eingestellt und in Zeilen 140 und 
150 die Koordinaten des Kreismittelpunkts mittels 
INPUT-Anweisung in die Variablen XP% und 
YP% eingelesen. Weiterhin wird in den Zeilen 210 
und 230 die X- bzw. Y-Länge des Radius mit 
INPUT-Anweisungen in die Variablen XR% und 
YR% übertragen. Da mit dieser Kreisroutine auch 
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Ellipsen gezeichnet werden können, wird nun zur 
Eingabe von zwei Radien auf gef ordert. Entspricht 
der Radius in X-Richtung dem in Y-Richtung, so 
wird als Ergebnis ein Kreis (Sonderform der El¬ 
lipse) auf dem Bildschirm erscheinen. 

270-550 Da beim Zeichnen des Kreises nicht mit dem 
BASIC-Kommando PLOT gearbeitet wird, sondern 
das Kommando DRAW Anwendung findet, muß 
jeweils ein Start- und ein Endpunkt für die Linie 
errechnet werden. Der Startpunkt für die erste Li¬ 
nie (0 Grad) wird im Programmteil ERSTE KO¬ 
ORDINATE ermittelt, wobei die Koordinaten sich 
schließlich in den Variablen Xl% und Yl% befin¬ 
den. In der FOR-TO-NEXT-Schleife von Zeile 
370 bis 530 werden dann in 6-Grad-Schritten alle 
weiteren Koordinaten (Von 6 bis 90 Grad) erzeugt. 
Zu den Koordinaten sei noch angemerkt, daß sich 
ausnahmslos alle im ersten Viertel des Kreises be¬ 
finden. Die Koordinaten für die drei übrigen 
Viertel des Kreises werden durch Spiegelung am 
Kreismittelpunkt erzeugt. Wie das Zeichnen des 
Kreises exakt vonstatten geht, wird bei Betrach¬ 
tung des Programmteils KREIS ZEICHNEN schnell 
deutlich. Ist eine Linie gezogen, so wird ihr End¬ 
punkt zum Startpunkt für die nächste Linie erklärt 
(Zeile 510). Nachdem der Kreis vollständig ge¬ 
zeichnet ist, trifft das Programm auf END. 

560-Ende Das Unterprogramm KOORDINATEN ERMIT¬ 
TELN errechnet mit dem Handwerkszeug der 
Geometrie die Koordinaten von Punkten, die sich 
auf der Peripherie des ersten Viertelkreises befin¬ 
den. In J% befindet eine Gradangabe, zu der die 
entsprechenden Koordinaten (X2%, Y2%) ermittelt 
werden sollen. Nach der Ermittling eines Koordi¬ 
natenpaares erfolgt der Rücksprung zum Haupt¬ 
programm. 
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2.4 Farbe kommt ins Spiel 

Bis jetzt war es uns nur möglich, monochrome d.h. zweifarbige 
Grafiken zu erstellen. Das Schneider-BASIC bietet jedoch 
weitreichende Möglichkeiten, etwas Farbe in ihre Kreationen zu 
bringen. 

Wie wir bereits aus dem einleitenden Kapitel entnehmen konn¬ 
ten, besitzt unser Schneider-CPC 27 verschiedene Farben. Davon 
können wir - je nach verwendetem MODE - 2, 4 oder 16 
gleichzeitig verwenden. Die 27 Grundfarben kann man mit 
einem Farbkasten vergleichen, der uns 27 unterschiedliche 
Farbtöpfe zur Verfügung stellt. Der Benutzer ist nun in Besitz 
von 2, 4 oder 16 Pinseln, denen er jeweils eine Farbe zuordnen 
kann. Dies geschieht bei Schneider-CPC mit Hilfe des INK- 
Befehls. Ink kommt aus dem Englischen und bedeutet frei 
übersetzt einfärben. Mit dem INK-Befehl kann also einem Pin¬ 
sel mit einer bestimmten Farbe aus unserem Farbkasten einge- 
fäbt werden. Programmtechnisch sieht das so aus, daß dem 
INK-Befehl zwei Parameter zugeordnet werden müssen. Ein 
Beispiel dafür ist: 


INK 2,5 


Der erste Parameter gibt dabei den verwendeten Pinsel an und 
kann je nach MODE einen Wert zwischen 0 und 15 haben. Der 
zweite Parameter repräsentiert den Code der gewünschten 
Grundfarbe. Sein Wert muß dabei immer im Bereich zwischen 0 
und 26 liegen. Anders als bei einem richtigen Pinsel ist es aber 
mit dem INK-Kommando auch möglich, dem Pinsel zwei Far¬ 
ben zu zuordnen. Diese beiden Farben werden nicht etwa mit¬ 
einander gemischt, sondern abwechselnd für den entsprechenden 
Pinsel ausgegeben. Um diesen zweiten Farbparameter in die 
Syntax des INK-Kommandos einzufügen, wird einfach nur eine 
weitere Zahl aus dem Bereich 0 bis 26 mit einem Komma ange¬ 
hangen. 
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Sind so alle Pinselfarben definiert, muß der Benutzer seinem 
Rechner nur noch mitteilen, welchen Pinsel er zum Zeichnen 
verwenden möchte. Dazu enthält das Locomotive-BASIC des 
CPC den Befehl PEN. Der PEN-Befehl benötigt für seine kor¬ 
rekte Syntax einen nachstehenden Parameter, der die Nummer 
des gewüschten Pinsels angibt. Der Wert dieses Parameters kann 
je nach aktiviertem MODE zwischen 0 und 1, 0 und 3 oder 0 
und 15 liegen. 


PEN 11 


aktiviert beispielsweise Pinsel 11, d.h., daß von nun an die 
Bildschirmausgaben in der Farbe des Pinsels 11 erfolgen. 

Das Schneiderhandbuch bezeichnet die Pinsel übrigens nicht als 
Pinsel, sondern als Farbstifte. Wir haben trotz dieser Tatsache 
den Begriff Pinsel in den gerade erläuterten Beispielen einge¬ 
führt, um die doch relativ komplizierten Vorgänge der Farbor- 
ganisation zu verdeutlichen, denn ein Pinsel läßt sich im 
Gegensatz zu einem Stift umfärben. Da Schneider nun mal die 
elektronischen Pinsel nicht "Pinsel" sondern " Farbstifte " nennt, 
möchten wir Sie bitten, zukünftig diesen von Schneider gepräg¬ 
ten Begriff zu verwenden. 


2.5 Ein kleines Zeichenprogramm 

Alle bisher gelernten Verfahren, Grafiken auf dem Bildschirm 
zu erzeugen, haben wir zum Ende dieses Kapitel zu einem voll¬ 
ständigen Anwendungprogramm verschmolzen, dem "kleinen 
Zeichenprogramm". 

Das Programm teilt den Bildschirm in drei Bereiche mit voll¬ 
kommen unterschiedlichen Aufgaben. Der Bereich am linken 
Bildschirmrand stellt das Zeichenblatt dar, auf dem Sie Ihre 
Zeichnungen erstellen. Unter dem Zeichenblatt liegt ein zweiter 
Bereich, in dem die Optionen und ihre Kurzanwahlen aufgelistet 
sind. Will man zum Beispiel einen Punkt auf das Zeichenblatt 
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bringen, so sucht man aus der Liste der Optionen die Option 
"(P)unkt" heraus. Tippt dann ihre Kurzanwahl (eingeklammerter 
Buchstabe), im Falle eines Punktes ein "P" ein. Auf dem dritten 
Fenster, das sich am rechten Bildschirmrand befindet, erscheint 
die Meldung "PUNKT". Das dritte Fenster ist ein Dialogfenster, 
in dem zum einen alle angewählten Optionen aufgelistet und 
zum anderen die Koordinaten zum Zeichnen erfragt werden. 


Die Hardcopy 1 zeigt die Bildschirmaufteilung des Zeichen¬ 
programms; deutlich sind die unterschiedlichen Funktionen des 
Zeichenblattes, des Optionsfensters und des Dialogfensters zu 
erkennen. 



IWÜM 

fj 
% 

8 

g 


1:? lOO 
1:9 70 
3 :? 300 
3:? 300 
IN IE 
1 :9 300 
1 : ? 70 
a:? 300 
3 :9 300 
BEI S 
: 9 300 
: 9 70 
R:? 100 
R : 9 SO 








OOREIS ( S SCHRIFT <D>ISK 
(O)EFFNEN <N )El) <E >NDE 


Hardcopy 1: Eine typische Anwendung des kleinen Zeichenprogramms 


Zur Darstellung eines Punktes müssen zwei Koordinaten einge¬ 
geben werden, die die Position des Punktes auf dem Zeichen¬ 
blatt bestimmen. Will man dann weitere Elemente des 
Zeichenprogramms auf das Zeichenblatt bringen, so kann man 




36 


Das große Grafikbuch zum CPC 


die im Dialogfenster mitgeschriebenen Koordinaten als Aus¬ 
gangspunkte verwenden. 

Neben der Möglichkeit, Punkte auf das Zeichenblatt zu bringen, 
bietet das Zeichenprogramm folgende Optionen: 

- (L)inie 

Zieht eine Linie von der Position Xl/Yl zur Position 
X2/Y2. 

- (V)iereck 

Zeichnet ein Viereck auf das Zeichenblatt, dessen linke 
untere Ecke durch die Koordinaten Xl/Yl und dessen 
rechte obere Ecke durch die Koordinaten X2/Y2 be¬ 
stimmt wird. 

- (K)reis 

Zeichnet einen Kreis oder eine Ellipse auf das Zei¬ 
chenblatt. Der Mittelpunkt dieser geometrischen Form 
wird durch die Koordinaten XI und Y1 bestimmt. Mit 
den Angaben XR und YR kann der Radius in X- und 
Y-Ausdehnung festgelegt werden. Werden für XR und 
YR gleich große Werte eingegeben, so entsteht ein 
Kreis (Sonderform der Ellipse) auf dem Zeichenblatt. 

- (S)chrift 

Mit der Option "Schrift" können Zeichen auf dem 
Bildschirm ausgegeben werden. Die Eingaben X und Y 
bestimmen die Position der linken oberen Ecke der er¬ 
sten Zeichenmatrix des auszugebenden Textes. 

- (D)isk 

Die Option "Disk" erlaubt das Sichern einer erstellten 
Zeichnung auf Diskette. Die Grafik wird in Form eines 
Birnärfiles gespeichert und kann jederzeit auch ohne 
das Zeichenprogramm wieder auf den Bildschirm ge¬ 
bracht werden (LOAD "Name.BIN"). 
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- (O)effnen 

Mit dieser Option kann eine in Form eines Binärfiles 
auf Diskette gespeicherte Zeichnung zurück auf das 
Zeichenblatt gebracht werden. Nach dem Einladen einer 
Zeichnung sind alle Angabe des Dialogfensters gelöscht. 

- (E)nde 

Diese Option beendet nach der Bestätigung einer Si¬ 
cherheitsabfrage das Programm. Nicht abgespeicherte 
Zeichnungen sind nach dem Durchlaufen dieses Pro¬ 
grammpunktes unwiederbringlich verloren. 

Die genaue Handhabung des Zeichenprogramms erlernen Sie am 
besten, indem Sie versuchen, Zeichnungen mit ihm zu erstellen 
und sich die Abläufe beim Zeichnen an Hand der Programmbe¬ 
schreibung verdeutlichen. 


100 MODE 1 
110 • 

120 CM$= "PL VKSDONE 11 
130 ' 

140 DES 
150 • 

160 ORIGIN 1,64,1,479,399,64 
170 ' 

180 BORDER 13 
190 1 

200 INK 0,26 
210 INK 1,0 
220 INK 2,13 
230 INK 3,8 
240 ' 

250 UINDOU #0,1,30,1,21 
260 WINDOW #1,1,30,22,25 
270 WINDOW #2,31,40,1,25 
280 ' 

290 PAPER #0,0 
300 PEN #0,1 
310 CLS #0 
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320 ' 

330 PAPER #1,2 
340 PEN #1,3 
350 CLS #1 
360 • 

370 PAPER #2,2 
380 PEN #2,0 
390 CLS #2 
400 1 

410 'OPTIONEN AUSGEBEN 
420 1 

430 PRINT #1,"(P)UNKT (L)INIE {VJIERECK (K)REIS (S)CHRIFT (D 
)ISK (O)EFFNEN (N)EU (E)NDE" 

440 1 

450 'IN UNTERPROGRAMME VERZWEIGEN 
460 ' 

470 IUV$=INKEY$ 

480 IUV$=UPPER$(IUV$) 

490 ' 

500 FOR IX=1 T0 9 

510 IF IUV$<>KID$(CM$,IX,1) THEN NEXT:G0T0 440 

520 ON IX GOSUB 550,650,780,940,1420,1580,1670,1770,1890 

530 ' 

540 GOTO 440 
550 ' 

560 'PUNKT SETZEN 
570 ' 

580 PRINT #2,"PUNKT" 

590 INPUT #2,"X:";XP 
600 INPUT #2,"Y:“;YP 
610 • 

620 PLOT XP,YP 
630 ' 

640 RETURN 
650 ' 

660 'LINIE ZEICHNEN 
670 ' 

680 PRINT #2,"LINIE" 

690 INPUT #2,"XI:";XP1 
700 INPUT #2,"Y1:";YP1 



Punkt. Punkt. Komma. Strich.. 


39 


710 INPUT #2,"X2:»;XP2 
720 INPUT #2,"Y2:";YP2 
730 1 

740 MOVE XP1.YP1 
750 DRAW XP2.YP2 ■ 

760 ' 

770 RETURN 
780 ' 

790 'VIERECK ZEICHNEN 
800 1 

810 PRINT #2,»VIERECK" 
820 INPUT #2,"Xi:";XP1 
830 INPUT #2,"Y1:";YP1 
840 INPUT #2,"X2:";XP2 
850 INPUT #2,"Y2:";YP2 
860 ' 

870 MOVE XP1.YP1 
880 DRAW XP1.YP2 
890 DRAW XP2.YP2 
900 DRAW XP2,YP1 
910 DRAW XP1.YP1 
920 ' 

930 RETURN 
940 1 

950 'KREIS ZEICHNEN 
960 ' 

970 PRINT #2,"KREIS" 
980 INPUT #2,"X:";XP 
990 INPUT #2,"Y:";YP 
1000 XP%=INT(XP) 

1010 YP%=INT(YP) 

1020 INPUT #2,"XR:";XR 
1030 INPUT #2,"YR:";YR 
1040 XR%=INT(XR) 

1050 YRX=INT(YR) 

1060 ' 

1070 'ERSTE KOORDINATE 
1080 • 

1090 j%=0 
1100 GOSUB 1350 
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1110 xl%=x2% 

1120 y1%=y2% 

1130 • 

1140 'UEITERE KOORDINATEN 
1150 1 

1160 FOR j%=6 TO 90 STEP 6 
1170 GOSUB 1350 
1180 • 

1190 'KREIS ZEICHNEN 
1200 ’ 

1210 M0VE xp%+x1%,yp%+yU 
1220 DRAW xp%+x2X,yp%+y2% 

1230 HOVE xp%+x1%,yp%-y1%+1 
1240 DRAW xp%+x2%,yp%-y2%+1 
1250 HOVE xp%-x1%+1,yp%-y1%+1 
1260 DRAU xp%-x2%+1,yp%-y2%+1 
1270 M0VE xp°/.-x1%+1,yp%+y1% 
1280 DRAW xp%-x2%+1,yp%+y2% 
1290 ■ 

1300 x1%=x2%:y«=y2% 

1310 1 
1320 NEXT 
1330 ' 

1340 RETURN 
1350 ' 

1360 'KOORDINATEN ERMITTELN 
1370 ' 

1380 x2%=INT(COS(j%)*xrX+0.5> 
1390 y2%=INT(SIN(j%)*yr%+0.5) 
1400 • 

1410 RETURN 
1420 • 

1430 'SCHRIFT AUSGEBEN 
1440 ' 

1450 PRINT #2,''SCHRIFT'' 

1460 INPUT #2,"X:";XP 
1470 INPUT #2,"Y:";YP 
1480 INPUT #2,“TEXT:";TE$ 
1490 ' 

1500 TAG 
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1510 ' 

1520 MOVE XP.YP 
1530 PRINT TE$; 

1540 ■ 

1550 TAGOFF 
1560 ' 

1570 RETURN 
1580 1 

1590 'ARBEITSBLATT SICHERN 
1600 1 

1610 PRINT #2,"DISK" 

1620 INPUT #2,"NAME:";NM$ 

1630 CLS #2 

1640 SAVE NM$,B,&C000,&4000 
1650 • 

1660 RETURN 
1670 ' 

1680 'ARBEITSBLATT LADEN 
1690 1 

1700 PRINT #2,"OEFFNEN" 

1710 INPUT #2,"NAME:";NM$ 

1720 IF UPPER$(RIGHT$(NM$,4))<>".BIN" THEN NM$=NM$+".BIN" 
1730 CLS #2 
1740 LOAD NM$ 

1750 ' 

1760 RETURN 
1770 ' 

1780 'ARBEITSBLATT LOESCHEN 
1790 ' 

1800 PRINT #2,"NEU" 

1810 PRINT #2,"SICHER? 

1820 S$=1NKEY$ 

1830 IF S$='"' THEN 1820 

1840 IF S$<>"J" AND $$<>"j" THEN PRINT #2,»N":RETURN 
1850 CLS #0 
1860 CLS #2 
1870 ' 

1880 RETURN 
1890 ' 

1900 'PROGRAMM BEENDEN 
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1910 1 

1920 CALL &BB4E 
1930 CALL &BBFF 
1940 ' 

1950 END 


Program mbeschrei bung 

100-390 Definitionen und Dimensionierungen. Der String¬ 
variablen CMS wird eine Zeichenfolge zugewiesen, 
die die Anfangsbuchstaben der Optionen des Zei¬ 
chenprogramms enthält. Mit Hilfe von CMS wird 
im Programmteil IN UNTERPROGRAMME 
VERZWEIGEN entschieden, ob die betätigte Taste 
zum Aufruf eines Unterprogramms führt oder 
nicht. 

Nach dem Versetzen des Computers ins Winkel¬ 
gradmaß, der Bestimmung der Rahmenfarbe 
(BORDER) und der Zuweisung der Farben für die 
Farbstifte 0 bis 3 werden schließlich drei Windows 
definiert, die im einzelnen folgende Bedeutungen 
haben: 

#0: Arbeitsblatt, auf dem die Zeichnung erstellt 

wird. Die Grenzen dieses Fensters stimmen 
mit der Begrenzung des Grafik-Bildschirm¬ 
bereiches überein, der in Zeile 160 definiert 
wurde. 

#1: Auf diesem Fenster werden einmal die Op¬ 

tionen des Programms ausgegeben (Zeile 
430) und bleiben im Verlauf des Programms 
dort erhalten. 

#2: Dialogfenster - Über dieses Fenster wird 

der Dialog zwischen Rechner und Benutzer 
geführt. Der Rechner zeigt hier beispiels¬ 
weise an, in welcher Unterroutine er sich 
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befindet oder erfragt Koordinaten. Der Be¬ 
nutzer tippt dann die Angaben in die Tasta¬ 
tur, auf daß sie im Fenster #2 protokolliert 
werden. 

Sind alle drei Fenster definiert, so wird ihnen eine 
individuelle Vorder- und Hintergrundfarbe zuge¬ 
ordnet und ihr Inhalt gelöscht. Sie sind dann bereit 
für die Ausgaben des Programms. 

400-430 Optionen ausgeben 

Der Programmteil OPTIONEN AUSGEBEN 
schreibt in das Fenster #1, welche Möglichkeiten 
das Programm bietet und über welche Taste sie zu 
erreichen sind. Window #1 dient ausschließlich zur 
Ausgabe dieser Informatinen, die während des ge¬ 
samten Programmlaufs dort erhalten bleiben. 

440-540 In Unterprogramme verzweigen 

Diese Programmzeilen stellen die Hauptschleife 
dar. Sie bildet die Schaltzentrale des Programms, 
von der alle Verzweigungen in die Unterpro¬ 
gramme vorgenommen werden. Zu diesem Zweck 
wird die Eingabe der Tastatur mit den einzelnen 
Elementen der Variablen CMS verglichen (Zeile 
510). Kann keine Übereinstimmung festgestellt 
werden, so wird IN UNTERPROGRAMME VER¬ 
ZWEIGEN erneut durchlaufen. Stimmt die Eingabe 
mit einem Element von CMS überein, so wird ge¬ 
mäß dem aktuellen Index IX mit ON IX GOSUB 
in das der Eingabe entsprechende Unterprogramm 
verweigt. Nach der Rückkehr aus dem ange¬ 
sprungenen Unterprogramm beginnt wieder die 
Verarbeitung der Hauptschleife. 

550-640 Punkt setzen 

Durch einen Druck auf die Taste "P" hat die 
Hauptschleife in dieses Unterprogramm verzweigt. 
Auf dem Dialogfenster (#2) wird vermerkt, daß es 
sich um das Unterprogramm "PUNKT" SETZEN 




44 


Das große Grafikbuch zum CPC 


handelt, und die Eingabe der X- und Y-Koordi¬ 
nate des Punktes erwartet. Die einzugebenden 
Werte verstehen sich relativ zum gesetzten Koor¬ 
dinatenursprung (ORIGIN). Mit den eingegebenen 
Koordinaten wird der Punkt auf dem Arbeitsblatt 
(#0) gezeichnet - Rücksprung zur Hauptschleife. 

650-770 Linie zeichnen 

Wurde die Taste "L" betätigt, so verzweigt die 
Hauptschleife in dieses Unterprogramm. Auf dem 
Dialogfenster (#2) wird vermerkt, daß es sich um 
das Unterprogramm "LINIE" ZEICHNEN handelt. 
Im Dialogfenster wird dann die Eingabe der Koor¬ 
dinaten des Start- (XI, Yl) und Endpunktes (X2, 
Y2) erwartet. Gemäß den eingegebenen Koor¬ 
dinaten (relativ zum gesetzen Ursprung) wird der 
Grafikcursor - auf dem Arbeitsblatt - an den 
Startpunkt der Linie bewegt und die Linie zum 
gewählten Endpunkt gezeichnet. Rücksprung zur 
Hauptschleife. 

780-930 Viereck zeichnen 

Durch einen Druck auf die Taste "V" hat die 
Hauptschleife in dieses Unterprogramm verzweigt. 
Nach der Ausgabe "VIERECK" wird im Dialog- 
fenster die Eingabe von vier Werten verlangt. Die 
ersten beiden Werte (XI, Yl) stellen den linken 
unteren Eckpunkt des Rechtecks dar; das zweite 
Wertepaar (X2, Y2) steht für die rechte obere Ecke 
des Rechtecks. Auch diese Angaben verstehen sich 
wieder relativ zum gesetzten Koordinatenursprung. 
Das Viereck wird entsprechend der Eingaben auf 
dem Arbeitsblatt gezeichnet (Zeile 870-910). 

940-1410 Kreis zeichnen 

Wurde die Taste "K" betätigt, so verzweigt die 
Hauptschleife zur Zeile 940. Auf dem Dialogfen¬ 
ster erscheint der Hinweis, daß zur Zeit das 
Unterprogramm "KREIS" ZEICHNEN abgearbeitet 
wird. Es wird dann die X- und Y-Koordinate des 
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Kreismittelpunktes erfragt und unmittelbar in eine 
Integervariable überstellt (größtmögliche Verarbei¬ 
tungsgeschwindigkeit). Da mit dieser Kreisroutine 
auch Ellipsen gezeichnet werden können, wird nun 
zur Eingabe von zwei Radien aufgefordert. Ent¬ 
spricht der Radius in X-Richtung dem in Y- 
Richtung, so wird als Ergebnis ein Kreis (Sonder¬ 
form der Ellipse) auf dem Bildschirm erscheinen. 
Auch die beiden Radien werden in Inte¬ 
gervariablen gespeichert (XR%, YR%). 

Da beim Zeichen des Kreises nicht mit dem BA- 
SIC-Kommando PLOT gearbeitet wird, sondern 
das Kommando DRAW Anwendung findet, muß 
jeweils ein Start- und ein Endpunkt für die Linie 
errechnet werden. Der Startpunkt für die erste Li¬ 
nie (0 Grad) wird im Programmteil ERSTE KO¬ 
ORDINATE ermittelt, wobei die Koordinaten sich 
schließlich in den Variablen Xl% und Yl% befin¬ 
den. In der FOR-TO-NEXT-Schleife von Zeile 
1160 bis 1320 werden dann in 6-Grad-Schritten 
alle weiteren Koordinaten (von 6 bis 90 Grad) er¬ 
zeugt. Zu den Koordinaten sei noch angemerkt, 
daß sich ausnahmslos alle im ersten Viertel des 
Kreises befinden. Die Koordinaten für die drei 
übrigen Viertel des Kreises werden durch Spiege¬ 
lung am Kreismittelpunkt erzeugt. Wie das Zeich¬ 
nen des Kreises exakt vonstatten geht, wird bei 
Betrachtung des Programmteils KREIS ZEICHNEN 
schnell deutlich. Ist eine Linie gezogen, so wird ihr 
Endpunkt zum Startpunkt für die nächste Linie er¬ 
klärt (Zeile 1300). Nachdem der Kreis vollständig 
gezeichnet ist, erfolgt der Rücksprung zur Haupt¬ 
schleife. 

Das Unterprogramm KOORDINATEN ERMIT¬ 
TELN wird nicht von der Hauptschleife verwaltet, 
sondern ausschließlich von KREIS ZEICHNEN 
verwendet. In diesem Unterprogramm können mit 
dem Handwerkszeug der Geometrie die Koordina- 
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ten von Punkten, die sich auf der Peripherie des 
ersten Viertelkreises befinden, errechnet werden. 
In J% befindet eine Gradangabe, zu der die ent¬ 
sprechenden Koordinaten (X2%, Y2%) ermittelt 
werden sollen. 

1420-1570 Schrift ausgeben 

Wurde die Taste "S" betätigt, so verzweigt die 
Hauptschleife an diese Stelle. Auf dem Dialogfen¬ 
ster erscheint der Hinweis, daß es sich um das 
Unterprogramm "SCHRIFT” AUSGEBEN handelt. 
Dann wird die Position des Grafikcursors erfragt, 
ab der die Textausgabe auf dem Arbeitsblatt erfol¬ 
gen soll. Auf die Aufforderung "TEXT:" muß der 
betreffende Text eingetippt werden, der auf dem 
Arbeitsblatt erscheinen soll. In den Zeilen 1500 bis 
1550 wird die Textausgabe an die Position des 
Grafikcursor angekoppelt (TAG), der Grafikcursor 
an den zuvor eingegebenen Punkt bewegt, der Text 
(TE$) auf dem Arbeitsblatt ausgegeben und die 
Textausgabe wieder an den Textcursor gebunden 
(TAGOFF). Rücksprung zur Hauptschleife. 

1580-1660 Arbeitsblatt sichern 

Damit eine einmal erstellte Zeichnung mit dem 
Ausschalten des Computers nicht unwiderruflich 
verloren ist, wurde die Option ARBEITSBLATT 
SICHERN implementiert. Sie ist durch Druck auf 
die Taste "D" zu erreichen. Im Dialogfenster er¬ 
scheint der Hinweis "DISK", und es wird die Ein¬ 
gabe eines Dateinnamen erwartet, unter dem der 
momentane Bildschirm auf Diskette gerettet wer¬ 
den soll. Vor dem Abspeichern des Bildschirms 
wird das Dialogfenster gelöscht (CLS #2), um 
Komplikationen bei der Option ARBEITSBLATT 
LADEN von Anfang an auszuschließen. In Zeile 
1640 wird dann der gesamte Bildschirmspeicher in 
Form eines Binärfiles auf Diskette übertragen. 
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1670-1760 Arbeitsblatt laden 

Um eine mit der Option DISK auf Diskette über¬ 
tragene Zeichnung wieder bearbeiten zu können, 
muß sie mit dem Unterprogramm ARBEITS¬ 
BLATT LADEN zurück in den Bildschirmspeicher 
geholt werden. Der Druck auf die Taste "O" für 
OEFFNEN hat die Hauptschleife veranlaßt an 
diese Stelle des Programms zu verzweigen. Im 
Dialogfenster (#2) erscheint der Hinweis, daß es 
sich um das Unterprogramm OEFFNEN handelt. 
Dem eingegebenen Dateinamen NM$ wird, falls 
noch nicht vorhanden, die Extension ".BIN" für 
Binärfile angehanden. Nach den Löschen des Dia¬ 
logfensters wird die ausgewählt Datei in den Bild¬ 
schirmspeicher geladen und kann weiter bearbeitet 
werden. 

1770-1880 Arbeitsblatt loeschen 

Bei einem Druck auf die Taste "N" verzweigt die 
Hauptschleife in die Subroutine ARBEITSBLATT 
LÖSCHEN. Auf dem Dialogfenster erscheint der 
Hinweis "NEU" und das Programm vergewissert 
sich mit der Frage "SICHER?", ob die Taste "N" 
nicht versehentlich gedrückt wurde. Wird die Frage 
"SICHER?" mit etwas anderem als "J" beantwortet, 
so erscheint als Antwort ein "N" im Dialogfenster, 
und das Unterprogramm trifft auf RETURN. 
Wurde "SICHER?" bestätigt, werden Arbeitsblatt 
und Dialogfenster gelöscht. 

1890-Ende Programm beenden 

Durch Sprung auf die Betriebssystem-Vektoren 
&BB4E TXT INITIALISE (vollständige Initiali¬ 
sierung des Text-Packs) und &BBFF SCR INITIA¬ 
LISE (vollständige Initialisierung des Screen-Packs) 
wird die Bildschirmausgabe wieder auf ihren De¬ 
faultwert gebracht, d.h. umdefinierte Farben und 
definierte Fenster werden zurückgesetzt. 
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3. Der Zeichensatz - eine Fundgrube für 
Grafikelemente 


Eines der wichtigsten Betriebsmittel bei jedem Computer ist 
ganz ohne Zweifel der Zeichensatz. Auf seiner Grundlage wird 
die gesamte Kommunikation abgewickelt - damit ist neben der 
Kommunikation Benutzer-Rechner auch der Austausch von 
Daten zwischen zwei Rechnersystemen gemeint. 

Jede Form der Kommunikation unterliegt seit jeher Bestre¬ 
bungen der Vereinheitlichung. Ohne Normierung wäre nicht 
gewährleistet, daß zwei Partner, die miteinander kommunizieren 
wollen, sich letztendlich auch verstehen. Voraussetzung für das 
Gelingen der Kommunikation ist somit, daß alle Teilnehmer den 
gleichen Code, also ein System festgelegter Zeichen, benutzen, 
um sich verständlich zu machen. Es kann damit die gleiche 
Sprache gemeint sein, die zwei Menschen sprechen oder die 
gleiche Zeichennorm, die zwei Computer verwenden. 

Um Kommunikation unterschiedlicher Rechnersysteme zu 
ermöglichen, wurde im Bereich der elektronischen Datenverar¬ 
beitung der sogenannte ASCI^-Code entwickelt, der eine Norm 
für den Zeichensatz darstellt. Die Verwendung dieses Standards 
ist den Herstellern von Datenverarbeitungsalagen zwar nicht 
vorgeschrieben, wird aber aus Gründen der Kompatipilität zu 
anderen Systemen fast ohne Ausnahmen eingehalten. Für den 
reinen Anwender von DV-Anlagen ist der vom Rechner ver¬ 
wendete Code ohne Bedeutung, doch jeder, der sich mit der 
Programmierung von Computern beschäftigt, kommt ohne die 
Kenntnis des ASCII-Codes nicht aus. 

Der ASCII-Code unterzieht alle Zeichen, deren Zeichennummer 
im durch sieben Bit darstellbaren Bereich (0-127) liegen, einer 
Normierung. Bestimmt durch diesen Standard sind bei allen 
Rechnern, die ihm folgen - auch der CPC tut das - die gleichen 
Zeichen unter entsprechenden Zeichennummern zu finden. 


l 


American Standard Code for Information Interchange 
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Damit ist die Grundlage für den erfolgreichen Austausch von 
Daten zwischen zwei Rechnern gegeben. 

In den Bereich der ersten 128 Zeichen fallen neben den großen 
und kleinen Buchenstaben, Zahlen und Sonderzeichen auch 
einige Steuerzeichen, die für die Kommunikation zweier Rech¬ 
nersysteme eine Rolle spielen. Wo sich die Zeichen innerhalb des 
ASCII-Standards befinden, können Sie Tabelle 1 entnehmen. 
Dort sind ausnahmslos alle ASCII-Zeichen zusammen mit ihrer 
Zeichennummer in binärer, dezimaler und hexadezimaler Form 
wiedergegeben. 

Greifen wir doch einmal ein Feld aus der ASCII-Tabelle heraus. 
Etwas rechts von der Mitte oben befindet sich ein Feld, in dem 
ein "A" und die Zahl 65 steht. Die Tabelle soll die Verbindung 
des Buchstabens "A" und der Zeichennummer 65 innerhalb der 
ASCII-Norm hersteilen. Für manche Anwendungen des ASCII- 
Codes kann es von Bedeutung sein, neben der dezimalen Zei¬ 
chennummer auch die hexadezimale oder duale Entsprechung zu 
kennen. Um Ihnen ein aufwendiges Umrechnen der Zahlensy¬ 
steme zu ersparen, kann die Zeichennummer in den beiden 
anderen Zahlensystemen ebenfalls der Tabelle entnommen wer¬ 
den. 

Wieder am Beispiel des "A" - verfolgt man die Spalte, in der das 
mit 65 bezeichnete Kästchen steht, nach oben bis zu dem etwas 
fetteren Strich, so trifft man auf die Zahl 4, die die erste Stelle 
der hexadezimalen Zeichennummer ist. Die zweite Stelle kann 
gefunden werden, in dem man die Zeile, in der die 65 steht, 
nach links bis zu den fetteren Strich verfolgt. Es ergibt sich also 
für das "A" die hexadezimale Zeichennummer 41. 

In entsprechender Weise kann die Zeichennummer in binärer 
Darstellung aus der Tabelle entnommen werden, nur müssen 
dann Spalten und Zeilen bis an den äußeren Rand der Tabelle 
verfolgt werden. Die duale Zeichennummer besteht immer aus 7 
Bit. 
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7-bit-ASCII 

{American Standard Code for Information Interchange) 





000 

00 1 

0 1 0 

0 1 1 

100 


1 0 1 

_ 

1 1 0 

1 1 1 

1 Bit-N 

1^54 

32 10 

Hexcode 

0 

1 

2 

3 

4 


5 


6 

□ 

7 


0000 

0 

NUL 

00 

DLE 

16 

SP 

32 

0 

48 

@ 

64 

P 

80 

96 

P 

112 


000 1 

1 

SOH 

01 

DC1 

17 

! 33 

1 49 

A 

65 

Q 

81 

a 

97 

9 

1)3 


00 1 0 

2 

STX 

02 

DC2 

18 

■ 

34 

2 

50 

B 

66 

R 

82 

b 

98 

r 

114 


00 11 

3 

ETX 

03 

DC3 

19 

# 

35 

3 

51 

C 

67 

S 

83 

c 

99 

s 

115 


0 100 

4 

EOT 

04 

DC4 

20 

$ 

36 

4 

52 

O 

68 * 

T 

84 

d 

10O 

t 116 


0 10 1 

5 

ENQ 

05 

NAK 

21 

% 

37 

5 

53 

E 

69 

U 

85 

e 

101 

u 

117 


0 110 

6 

ACK 

06 

SYN 

22 

& 

38 

6 

54 

F 

70 

V 

86 

f 102 

V 

118 


0 111 

1 

BEL 

07 

ETB 

23 

' 39 

7 

55 

G 

71 

w 

87 

9 

103 

w 

119 


1 000 

8 

BS 

08 

CAN 

24 

( 40 

8 

56 

H 

72 

X 

88 

h 

104 

X 

120 


100 1 

9 

HT 

09 

EM 

25 

1 41 

9 

57 

1 73 

Y 

89 

i 105 

Y 

121 


10 10 

A 

IF 

10 

SUB 

26 

• 

42 

: 58 

J 

74 

z 

90 

j 106 

X 

122 


10 11 

B 

VT 

n 

ESC 

27 

4- 

43 

; 59 

K 

75 

1 91 

k 

107 

{ 123 

i 

1100 

C 

FF 

12 

FS 

28 

, 44 

< 

60 

L 

76 

\ 

92 

1 108 

1 124 


110 1 

D 

CR 

13 

GS 

29 

- 

45 

- 

61 

M 

77 

] 93 

m 

109 

} 125 


1110 

E 

SO 

14 

RS 

30 

46 

> 

62 

N 

78 

94 

n 

110 

~ 

126 


1111 

? 

Sl 

15 

US 

31 

/ 

47 

7 

63 

O 

79 

— 95 

o 

111 

DEL 

127 


Steuerzeichen 


Tabelle 1; Der 7-Bit-ASCII-Code 


Wie wohl grundsätzlich jede Art der Normierung wird auch der 
Standard des ASCII-Codes untergraben. So stimmen auch bei 
Rechnern, die weitestgehend dem ASCII-Standard folgen, nicht 
unbedingt alle Zeichen mit der Norm überein. Da einige Zei¬ 
chen für die Kommunikation vollkommen belanglos sind, wer¬ 
den sie gern von den Systementwicklern anders belegt. Dies 
geschieht auch im CPC, obwohl er mit einem 256 Zeichen 
großen Zeichensatz ausreichend Platz für Kreativität im Bereich 
der oberen 128 Zeichen bietet. 

Die oberen 128 der 256 vom Betriebssystem zur Verfügung 
gestellten Zeichen werden von der 7-Bit-ASCII-Norm nicht 
erfaßt und können daher mit beliebigen Zeichen gefüllt werden. 
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Wie auch bei vielen anderen Rechnern mit einem 256 Zeichen 
großen Zeichensatz, wird wird beim CPC mit der Adressierung 
über das Bit mit der Wertigkeit 2 A 7 ein Tor in die Welt der 
Grafikzeichen eröffnet. Zwar gibt es Bestrebungen den 8-Bit- 
ASCII-Code einzuführen, der auch diesen Bereich des Zeichen¬ 
satzes normiert, doch hat er sich bis zum heutigen Datum noch 
nicht durchsetzen können. 

Welche Abweichungen vom "American Standard Code for In¬ 
formation Interchange" und welche zusätzlichen Zeichen die 
Entwickler des CPCs in seine ROMs eingebrannt haben, werden 
Sie im Verlauf dieses Kapitels erfahren. 


3.1 Der Zeichensatz des CPC 

Wir haben von Zeichen und Zeichennummern gehört, die die 
Grundlage für die Kommunikation bilden. Beides sind Begiffe, 
die Dinge beschreiben, die im Inneren des Rechner verborgen 
bleiben. Die Kommunikation zwischen zwei Rechnern kann 
durch die Übermittlung von Zeichennummern erfolgen, doch 
wenn der Rechner für seinen Benutzer eine Meldung auf den 
Bildschirm ausgibt, tut er das nicht in Form von Zeichennum¬ 
mern, sondern mit den zugehörigen Zeichen. 

Damit der CPC die erzeugten Zeichennummern in Form von 
Zeichen auf dem Bildschirm ausgeben kann, hat er Routinen in 
seinem Betriebssystem, die zusammen den sogenannten Charak- . 
tergenerator ausmachen. Diese Routinen wandeln die Zeichen¬ 
nummern in auf dem Bildschirm darstellbare Zeichen um. Dabei 
greifen sie auf im ROM stehende Bitmuster (Zeichenmatrizen) 
zu, die für das Aussehen der Zeichen verantwortlich sind. Die 
Größe der Zeichen auf dem Bildschirm wird vom Charakterge¬ 
nerator je nach eingestelltem MODE bestimmt, so daß eine 
Darstellung von 20, 40 und 80 Zeichen pro Zeile möglich ist. 
Des weiteren obliegt dem Charaktergenerator die Aufgabe, die 
Zeichen für die Bildschirmausgabe entsprechend der eingestell¬ 
ten Farbkombinationen einzufärben. 
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Jede Zeichenmatrix des CPC besteht aus acht mal acht Punkten, 
die in binärer Form im ROM des CPC angelegt ist. Die Zei¬ 
chenmatrizen der 256 verfügbaren Zeichen belegen im ROM die 
Adressen von &3800 bis &3FFF. Sollten Sie versuchen wollen, 
die Zeichenmatrizen mit der BASIC-Funktion PEEK aus dem 
Speicher zu lesen, so wird Ihrem Versuch kein Erfolg beschieden 
sein. Denn die Hardware des CPC erlaubt keinen Zugriff auf 
das ROM aus der BASIC-Ebene, und so können auch die im 
ROM stehenden Zeichenmatrizen nicht ausgelesen werden. Wol¬ 
len Sie die Zeichenmatrizen dennoch nutzen, so können Sie das 
nur tun, wenn Sie mit den - nur über Maschinensprache beein¬ 
flußbaren - Mechanismen, die zur Umschaltung der Speicher¬ 
konfiguration (RAM-ROM) führen, vertraut sind. 

Das folgende Programm schreibt eine kleine Maschinenroutine in 
den Speicher des CPC, die Lesen aus dem ROM möglich macht 
und verdeutlicht, wie die Zeichenmatrizen gelesen werden kön¬ 
nen. Das Programm bringt alle Bytes der Zeichenmatrizen in 
Form von hexadezimalen Werten auf dem Bildschirm. 


100 'RAM-ROM-UMSCHALTUNG 
110 1 


120 DATA &01.&82.&7F 

: • LD 

BC.&7F82 J 

130 DATA &ED.&49 

: 'OUT 

<C),C 

140 DATA &1A 

: 'LD 

A,(DE) 

150 DATA &32.&7F.&AB 

: 'LD 

(&AB7F),A 

160 DATA &C9 

: 'RET 



170 1 

180 MEMORY &A000 
190 ' 

200 F0R A=&AB70 TO &AB79 

210 READ D 

220 POKE A,D 

230 NEXT A 

240 1 


1 


Beim CPC 464 führen Remark» in DATA-Statements zu Syntax-Error - 
die Kommentare dürfen also nicht eingegeben werden. 
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250 'ZEICHENSATZ AUSLESEN 
260 ' 

270 FOR A=&3800 TO &3FFF 
280 CALL &AB70.A 
290 PRINT HEX$(PEEK(&AB7F)) 
300 NEXT A 


Die in den DATA-Statements verschlüsselten Maschinenbefehle 
werden durch die erste FOR-TO-NEXT-Schleife in den Spei¬ 
cher geschrieben und ergeben dort eine kleine Routine, die es 
ermöglicht das ROM des CPC auszulesen. In der zweiten 
Schleife wird stets auf diese Routine zugegriffen, wenn ein Byte 
aus einer Zeichenmatrix gelesen werden soll. Beim Aufruf der 
Maschinenroutine (CALL) wird ihr die Adresse, von der aus 
dem ROM gelesen werden soll, übergeben. Das Byte, das die 
Routine an der betreffenden Speicherstelle des ROMs vorfindet, 
schreibt sie an Adresse &AB7F in den RAM-Speicher. Dort 
kann es mit der PEEK-Funktion gelesen werden (Zeile 290). Die 
Aufstellung aller Zeichen des Schneider-CPC, die Sie im 
Anschluß an ein paar begleitende Sätze finden, basiert auf den 
Ergebnissen dieses Programms. 

Der Zeichensatz des Schneider-CPC besteht aus 256 Zeichen, 
deren Zeichenmatrizen aus je acht Bytes gebildet werden. Die 
Zeichenmatrizen belegen also 2 KByte des ROM-Speicher im 
CPC. Um einen Überblick über die 256 Zeichen und ihre 
Gestalt zu gewinnen, haben wir die mit dem eben vorgestellten 
Programm gewonnenen Bytes zu Gruppen von je acht organi¬ 
siert, die zusammen die Matrix eines Zeichens ausmachen. Da 
die vom Programm gelieferte hexadezimale Darstellung sich 
hervorragend zur Weiterverarbeitung eignet, nicht aber, um das 
Aussehen der Zeichen zu erfassen, haben wir die Bytes in ihre 
binären Entsprechungen umgerechnet. Gesetzte Bits, die für 
gesetzte Pixels bei der Darstellung eines Zeichens stehen, wur¬ 
den mit einem bezeichnet, nicht gesetzte mit einem Leer¬ 
zeichen. Auf diese Weise entstand die acht-mal-acht-Matrix des 
Zeichens in einer Darstellungsform, die der Darstellung der 
Zeichen auf dem Bildschirm gleicht. 
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Um nun neben der Zeichenmatrix in binärer und hexadezimaler 
Darstellung weitere Informationen zu liefern, enthält die Auf¬ 
stellung des Zeichensatzes noch die ROM-Adressen, an denen 
die einzelnen Bytes der Matrix zu finden sind. Die Adressen 
sind in hexadezimaler Form abgedruckt und können in das oben 
abgedruckte Programm zum Lesen der Zeichenmatrizen einge¬ 
bracht werden, um eine Zeichenmatrix isoliert zu betrachten. 

Als letzte Information, die aus der Aufstellung gezogen werden 
kann, befindet sich über jeder Zeichenmatrix die Nummer des 
dargestellten Zeichens. Mit dieser Nummer in ein PRINT 
CHR$-Kommando eingesetzt, kann das betreffende Zeichen auf 
den Bildschirm gebracht werden. 

Wenn Sie bei der Betrachtung des Zeichensatzes und seiner Dar¬ 
stellung den Zeichen 32 bis 127 besonderes Augenmerk schen¬ 
ken, so werden Sie zweifellos die Grundsätze des einleitend 
erwähnten ASCII-Norm verwirklicht finden. Die ASCII-Steuer- 
zeichen, die vor diesem Bereich stehen, sollten Sie noch aus 
Ihren Betrachtungen ausklammern, denn auf die Steuerzeichen 
wird in einem gesonderten Kapitel (3.2) ausführlich eingegangen 
werden. 
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3.2 BASIC-Steuerzeichen 


Es ist Ihnen sicher aufgefallen, daß einige Zeichen aus dem 
Zeichensatz des Schneider-CPC sich nicht ohne weiteres auf 
dem Bildschirm sichtbar machen lassen - so passieren zum Bei¬ 
spiel sehr merkwürdige Dinge, wenn man folgendes Programm 
ablaufen läßt: 


10 FOR 1=0 TO 255 
20 PRINT CHR$(I); 
30 NEXT I 


Rein von der Logik müßte das Programm alle 256 verfügbaren 
Zeichen sauber nacheinander auf dem Bildschirm ausgeben. 
Doch weit gefehlt, es gibt einen kurzen Ton aus, das Bild¬ 
schirmfenster verfärbt sich rot und nach einiger Zeit erscheint 
"Ready" in der linken oberen Ecke des Bildschirms. Schuld an 
diesem erstaunlichen Ergebnis sind die Zeichen mit den Num¬ 
mer 0 bis 31, die Steuerzeichen genannt werden. Gibt man diese 
Zeichen mit PRINT CHR$ aus, so erwirken sie Vorgänge, die 
im Betriebssystem des Rechners verankert sind. 
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Greifen wir einmal exemplarisch eines der Steuerzeichen heraus 
und sehen, was passiert. 


PRINT CHR$(7) 


Nach dem Bestätigen dieser Eingabe mit der RETURN-Taste 
erklingt wieder der Ton, der sich schon bei unserem ersten Ver¬ 
such hervorgetan hat. Nach dem Ton ist die Ton-Warteschlange 
entleert. Dieses Steuerzeichen gehört zu denen, die aus der 
ASCII-Norm entnommen sind. Es läßt sich einfach und gewinn¬ 
bringend in eigenen Programmen einsetzen - es eignet sich her¬ 
vorragend, um auftretende Fehler zu kommentieren. 

Viele andere Steuerzeichen müssen zuerst mit weiteren Parame¬ 
tern versorgt werden, um sinnvolle Ergebnisse hervorzubringen; 
manche werden durch äquivalente BASIC-Kommandos überflüs¬ 
sig. Genaueres entnehmen Sie bitte der unten stehenden Aufstel¬ 
lung, in der alle Steuerzeichen und ihre Anwendungsmöglichkei¬ 
ten aufgeführt sind. 

Hinter jedem Steuerzeichen befindet sich die Bezeichnung, die 
das Steuerzeichen innerhalb des ASCII-Standards trägt. Diese 
Kennzeichnung ist bei der Verwendung der Steuerzeichen im 
CPC nicht immer sinnvoll, doch wurde sie dennoch in die Liste 
aufgenommen, um eine weitere Möglichkeit zu schaffen, Steuer¬ 
zeichen beim Namen zu nennen. 


CHR$(0) NUL 

Kein Einfluß (Zeiger auf RET). 


CHR$(1) SOH 

Normalerweise werden die Zeichen von 0 bis 31 immer als 
Steuerzeichen ausgeführt. Möchte man aber eines der Zeichen 
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aus diesem Bereich auf dem Bildschirm darstellen und nicht als 
Steuerzeichen ausführen, so kann dies mit CHR$(1) erreicht 
werden. 

Das folgende Programm soll die Funktionsweise des Steuer- 
Codes CHR$(1) verdeutlichen. 


10 FOR ZEICHENS TO 31 

20 PRINT CHR$(1);CHR$(ZEICHEN); 

30 NEXT ZEICHEN 

40 FOR ZEICHEN=32 TO 255 

50 PRINT CHRS(ZEICHEN); 

60 NEXT ZEICHEN 


Das Programm gibt alle 256 Zeichen des CPC auf dem Bild¬ 
schirm aus. In der ersten FOR-TO-NEXT-Schleife, der die 
Darstellung der Zeichen von 0 bis 31 obliegt, kommt der 
CHR$(1) zur Anwendung, Er veranlaßt die grafische Darstellung 
der Steuerzeichen. 

Bei der zweiten FOR-TO-NEXT-Schleife werden nur Zeichen 
ausgegeben, die ohnehin darstellbar sind. Hier ist also das Vor¬ 
anstellen eines CHR$(1) hinfällig. 


CHR$(2) STX 

Durch die Ausführung des CHR$(2) wird der Textcursor ab¬ 
geschaltet. In der Auswirkung entspricht dieses Steuerzeichen 
dem BASIC-Befehl CURSOR, mit einer Null als Parameter für 
Benutzerschalter. 

Normalerweise wird bei einem INPUT der Cursor an der Stelle 
des Bildschirms abgebildet, an der die Eingabe erwartet wird. 
Soll einmal der Cursor nicht abgebildet werden, so ist das ein 
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Anwendungsfall für CHR$(2). Die nachstehende Programmzeile 
soll den Zusammenhang verdeutlichen: 


10 PRINT CHR$(2): INPUT "WERT";WERT 


Die Darstellung des Cursors wurde durch den Steuercode 
CHR$(2) unterbunden. 


CHR$(3) ETX 

Durch die Ausführung des CHR$(3) wird der Textcursor ein¬ 
geschaltet. In der Auswirkung entspricht dieses Steuerzeichen 
dem BASIC-Befehl CURSOR, mit einer 1 als Parameter für Be¬ 
nutzerschalter. 

Wurde innerhalb eines BASIC-Programms der Textcursor mit 
CHR$(2) abgeschaltet, so kann er mit CHR$(3) wieder einge¬ 
schaltet werden. 


10 PRINT CHR$(2):INPUT "ERSTER WERT";EUERT 
20 PRINT CHR$(3):INPUT »ZUEITER WERT";2UERT 


In Zeile 10 des Programms wurde der Textcursor abgeschaltet, 
der INPUT wird also ohne Darstellung des Cursors ausgeführt 
(vgl. CHR$(2)). Beim zweiten INPUT in Zeile 20 soll der Text¬ 
cursor wieder erscheinen - er wird also mit CHR$(3) wieder 
eingeschaltet. 
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CHR$(4) EOT 

Dieser Steuercode entspricht in seiner Auswirkung dem BASIC- 
Befehl MODE X (X=0 bis 2). 


PRINT CHR$<4);CHR$(0) entspricht MODE 0 
PRINT CHR$<4);CHR$(1) entspricht MODE 1 
PRINT CHR$(4);CHR$(2) entspricht MODE 2 


Es sei noch angemerkt, daß als Parameter für CHR$(4) nicht der 
eingegebene Wert Verwendung findet, sondern sein Rest bei 
einer Division durch vier. Auf diese Weise ist es möglich, auch 
Parameter größer 2 zuzulassen. 

PRINT CHR$(4);CHR$(1) 


und 


PRINT CHR$(4);CHR$(5) 

sind somit gleichbedeutend und bringen beide den CPC in 
MODE 1. 


CHR$(5) ENQ 

Nach einem CHR$(5) wird das folgende Zeichen an der aktuel¬ 
len Position des Grafikcursors ausgegeben. Das folgende Pro : 
gramm soll den Zusammenhang beleuchten: 


10 CLS 

20 FOR 1=0 TO 399 
30 MOVE 1,1 
40 PRINT CHR$(5);"."; 
50 NEXT 
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Das Programm läßt einen Punkt von links unten nach rechts 
oben über den Bildschirm gleiten. Dazu werden in einer FOR- 
TO-NEXT-Schleife alle ganzzahligen Werte zwischen 0 und 399 
erzeugt. In Zeile 30 wird der Grafikcursor mit diesen Werten als 
Parameter bewegt. Zeile 40 bringt nun mit Hilfe von CHR$(5) 
einen Punkt an der aktuellen Position des Grafikcursors auf den 
Bildschirm. Bei jedem Durchlauf der Schleife verändert sich die 
Position des Grafikcursors und mit ihr auch die Stelle, an der 
der Punkt auf dem Bildschirm erscheint. 


CHR$(6) ACK 

Dieses Steuerzeichen schaltet den Textbildschirm wieder ein, 
nachdem er mit CHR$(21) ausgeschaltet wurde (vgl. CHR$(21» 


10 PRINT CHR$(21) 
20 FOR 1=1 TO 40 
30 PRINT »O»; 

40 NEXT 

50 PRINT CHR$(6) 
60 FOR 1=1 TO 40 
70 PRINT "1"; 

80 NEXT 


Zunächst wird in Zeile 10 der Textbildschirm ausgeschaltet; er 
reagiert in diesem Zustand auf keine Eingaben mehr. Die Zeilen 
20 bis 40 würden bei eingeschaltetem Bildschirm 40 Nullen auf 
dem Bildschirm ausgeben. Nach CHR$(21) unterbleibt diese 
Zeichendarstellung. 

In Zeile 50 wird schließlich der Textbildschirm mit CHR$(6) 
wieder eingeschaltet, so daß die in den Zeilen 60 bis 80 ausge¬ 
gebenen Zeichen auf dem Bildschirm erscheinen. 
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CHR$(7) BEL 

PRINT CHR$(7) erzeugt einen Ton, der auch als ASCII-Bell be¬ 
kannt ist. Nach diesem Ton ist die Ton-Warteschlange entleert. 


CHR$(8) BS 

Der Cursor wird um eine Zeichenposition nach links bewegt. 


CHR$(9) TAB 

Der Cursor wird um eine Zeichenposition nach rechts bewegt. 


CHR$(10) LF 

Der Cursor wird eine Zeile nach unten gesetzt. 


CHR$(11) VT 

Der Cursor wird eine Zeile nach oben gesetzt. 


CHR$(12) FF 

PRINT CHR$(12) entspricht dem BASIC-Kommando CLS. Es 
löscht das Textfenster und setzt den Cursor in die linke obere 
Ecke (HOME). 


CHR$(13) CR 

PRINT CHR$(13) entspricht einer Betätigung der Eingabetaste 
(RETURN). 
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CHR$(14) SO 

Das Steuerzeichen CHR$(14) entspricht in seiner Auswirkung 
der BASIC-Anweisung PAPER. Der nachfolgende Wert wird, 
analog zu PAPER, äls Parameter für die Farbe angenommen. 
Dabei wird nicht der Wert unmittelbar als Parameter verwendet, 
sondern sein Rest bei einer Division durch 16. 


CHR$(15) SI 

Das Steuerzeichen CHR$(15) entspricht in seiner Auswirkung 
der BASIC-Anweisung PEN. Der nachfolgende Wert wird, ana¬ 
log zu PEN, als Parameter für die Farbe angenommen. Dabei 
wird nicht der Wert unmittelbar als Parameter verwendet, son¬ 
dern sein Rest bei einer Division durch 16. 


CHR$(16) DL k 

Dieses Steuerzeichen löscht das Zeichen an der Cursorposition 
und füllt die entstehende Lücke mit der PAPER-Farbe. Es ist zu 
beachten, daß CHR$(16) nur das Zeichen löscht, nicht aber 
eventuell folgende Zeichen um eine Position nach links rückt, 
um die entstandene Lücke zu schließen. 


CHR$(17) DC1 

CHR$(17) löscht in der aktuellen Zeile alle Zeichen vom linken 
Rand des Textfensters bis zur Cursorposition (einschließlich). 
Die entstehende Lücke wird analog zu CHR$(16) mit der 
PAPER-Farbe gefüllt. 
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CHR$(18) DC2 

CHR$(18) löscht in der aktuellen Zeile alle Zeichen ab der 
Cursorposition (einschließlich) bis zum rechten Rand des 
Textfensters. Die entstehende Lücke wird analog zu CHR$(16) 
mit der PAPER-Farbe gefüllt. 


CHR$(19) DC3 

CHR$(19) löscht alle Zeichen von der linken oberen Ecke des 
Textfensters bis zur Cursorposition (einschließlich). Die ent¬ 
stehende Lücke wird analog zu CHR$(16) mit der PAPER-Farbe 
gefüllt. 


CHR$(20) DC4 

CHR$(20) löscht ab der Cursorposition (einschließlich) bis zum 
Ende des Textfensters (rechte untere Ecke) alle Zeichen und 
füllt analog zu CHR$(16) die entstehende Lücke mit der 
PAPER-Farbe. 


CHR$(21) NAK 

Dieses Steuerzeichen schaltet den Textbildschirm ab (vgl. 
CHR$(6)). Der Textbildschirm reagiert nach diesem Steuercode 
auf keinerlei Eingaben mehr. Mit CHR$(6) kann der Textbild¬ 
schirm wieder eingeschaltet werden. 


CHR$(22) SYN 

CHR$(22) ist ein Schalter für den Transparent-Modus. Was da¬ 
mit gemeint ist, zeigt das folgende Programm sehr deutlich: 


10 CLS 

20 PRINT CHR$(22);CHR$(1) 
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30 LOCATE 10,10 
40 PRINT "AAAAAAAAAA" 

50 LOCATE 10,10 
60 PRINT ■'//////////•' 

70 PRINT CHR$(22);CHR${0) 
SO LOCATE 10,12 
90 PRINT "AAAAAAAAAAA" 

100 LOCATE 10,12 

110 PRINT " 11111111111 " 

120 END 


Folgt CHR$(22) der Parameter 1, so wird der Transparent- 
Modus eingeschaltet - wie in Zeile 20 erfolgt. Die beiden Zei¬ 
chenketten, die dann im Verlauf des Programms an der gleichen 
Bildschirmposition ausgegeben werden, überlagern sich (Trans¬ 
parent-Modus ein!). 

CHR$(22) gefolgt von Parameterwert 0 schaltet den Transpa¬ 
rent-Modus aus (Zeile 70). Die gleichen Zeichenketten wie im 
ersten Teil des Programms überlagern sich dann nicht. Die 
ersten Zeichen werden bei der Ausgabe der zweiten Zeichen¬ 
kette vollständig zerstört. 

Auch hier wird als Parameter wieder nicht der Wert unmittelbar 
verwendet sondern sein Rest bei einer Division durch 2. 


CHR$(23) ETB 

CHR$(23) entscheidet über den Grafikschreibmodus. Als Para¬ 
meter sind die Werte 0 bis 3 zulässig, die sich als Rest einer Di¬ 
vision durch vier ergeben. 


Parameter: 

0 = Normale Einstellung 

1 = XOR-Verknüpfung von Vorder- und Hintergrund 
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2 = AND-Verknüpfung von Vorder- und Hintergrund 

3 = OR-Verknüpfung von Vorder- und Hintergrund 


Abhängig von der Parametereinstellung werden die Ausgaben 
nach einem CHR$(23) gemäß den logischen Gesetzen XOR, 
AND oder OR mit dem Hintergrund verknüpft. Die Verknüp¬ 
fung von Vorder- und Hintergrund erfolgt bitweise. 


10 CLS 

20 IMPUT "PARAMETER";? 

30 TAG 

40 MOVE 200,200 
50 PRINT ************ 11 ; 

60 TAGOFF 

70 PRINT CHR$(23);CHR$(P) 
80 TAG 

90 MOVE 200,200 

100 PRINT "##########"; 

110 TAGOFF 


In Zeile 20 wird nach der Frage "PARAMETER?" eine Zahl er¬ 
wartet, die über die Verknüpfung zwischen Vorder- und Hin¬ 
tergrund entscheidet (vgl. Tabelle der Parameter). Die Zeilen 30 
bis 60 erzeugen einen Hintergrund. Dann wird in Zeile 70 die 
Art der Verknüpfung (gemäß Vorgabe) festgelegt. Schließlich 
erfolgt eine Ausgabe auf dem Hintergrund. Vorder- und Hinter¬ 
grund werden bitweise nach den Regeln der ausgewählten lo¬ 
gischen Gesetzmäßigkeit miteinander verknüpft. 


CHR$(24) ^ AIN 

Durch das Steuerzeichen CHR$(24) werden die Farbstifte von 
PAPER und PEN miteinander vertauscht. 


CHR$(25) 


EM 


CHR$(25) entspricht dem BASIC-Befehl SYMBOL. Wie SYM¬ 
BOL benötigt CHR$(25) neun ergänzende Parameter, deren 
Werte zwischen 0 und 255 liegen müssen. 

Mit dem ersten Wert, der auf das Steuerzeichen folgt, wird fest¬ 
gelegt, welche Zeichenmatrix durch eine neue vom Benutzer 
definierte Matrix ersetzt werden soll. Die acht dann folgenden 
Parameter definieren die Martix. 


10 SYMBOL AFTER 0 
20 PRINT CHR$<25); 

30 PRINT CHR$<123); 

40 PRINT CHRSt&Xl10110115 

41 PRINT CHR$(&X00111100) 

42 PRINT CHR$(&X01100110) 

43 PRINT CHR$(&X01100110) 

44 PRINT CHR$(RX01111110) 

45 PRINT CHR$(&X01100110) 

46 PRINT CHR$<&X01100110) 

47 PRINT CHR$(&XOOOOOOOO) 


Dieses Programm definiert mit Hilfe des Steuerzeichens 
CHR$(25) das Zeichen 123 ({) in ein "Ä" um. Die gewählte 
binäre Notation für die letzten acht Parameter verdeutlicht die 
Beziehung zur Zeichenmatrix. Ist im ersten dieser acht Para¬ 
meter das signifikanteste Bit gesetzt, so wird dieses Bit auch in 
der Zeichenmatrix gesetzt. Analoges gilt für alle übrigen Bits der 
letzten acht Parameter. 


CHR$(26) SUB 

Das Steuerzeichen CHR$(26) entspricht dem BASIC-Befehl 
WINDOW (ohne Angabe eines Streams). Gefolgt wird dieser 
Steuercode von vier Parametern, die die Fenstergröße festlegen. 
Die ersten beiden Parameter legen den rechten und linken Rand 



t 
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des Fensters fest. Die Reihenfolge der Eingabe ist unerheblich, 
es wird automatisch der kleinere der beiden Werte als linke und 
der größere als rechte Fenstergrenze angenommen. 

Analoges gilt für die letzten beiden Parameter. Der kleinere der 
beiden wird zur oberen und der größere zur unteren Fenster¬ 
grenze deklariert. 


CHR$(27) ESC 

Kein Einfluß (Zeiger auf RET). 


CHR$(28) FS 

Der Steuercode CHR$(28) entspricht dem BASIC-Befehl INK. 
Wie bei INK wird das Steuerzeichen von drei Parametern ge¬ 
folgt. Der erste Parameter bzw. sein Rest bei einer Division 
durch 16 legt fest, welcher Farbstift durch die folgenden Farb- 
angaben beeinflußt werden soll. Der Rest der nächsten beiden 
Parameter, bei einer Division durch 32, legt die beiden Farben 
für den gewünschten Farbstift fest. 


Beispiel: 

PRINT CHR$(28);CHR$(1);CHR$(0);CHR$(13) 

entspricht 

INK 1,0,13 


CHR$(29) GS 

Das Steuerzeichen CHR$(29) entspicht der BASIC-Anweisung 
BORDER. Das Steuerzeichen wird von zwei Parametern gefolgt, 
die die beiden Farbwerte für den Bildschirmrand repäsentieren. 
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Es werden für die Bestimmung der Farbwerte nicht die Para¬ 
meter unmittelbar, sondern ihr Rest bei einer Division durch 32 
verwendet. 


CHR$(30) RS 

Der Steuercode CHR$(30) bringt den Cursor in die linke obere 
Ecke des Textfensters (HOME). 


CHR$(31) US 

Wie der BASIC-Befehl LOCATE bringt das Steuerzeichen 
CHR$(31) den Cursor auf eine angegebene Position innerhalb 
des Textfensters. Die Position auf die der Cursor gebracht wer¬ 
den soll, wird durch die zwei auf das Steuerzeichen folgende 
Parameter bestimmt. Der erste Parameter gibt die Spalten- und 
der zweite die Zeilenposition an. Sind die Parameter größer als 
die Fenstergrenzen, so wird der Cursor auf die größtmögliche 
darstellbare Position gebracht. 


3.3 Viele Zeichen ergeben ein Bild 

Nachdem Sie den Zeichensatz des CPC in seiner Gesamtheit 
kennengelernt haben und wissen, wie man hartnäckigen 
Steuerzeichen zu Leibe rückt, wollen wir Ihnen eine einfache 
Möglichkeit zeigen, mit den vorhandenen Zeichen Grafiken zu 
erstellen. 

Die Vorgehensweise ist denkbar einfach: Man nehme ein Bild, 
das als Vorlage dienen soll - es kann sowohl eine selbsterstellte 
Vorlage als auch ein vorhandenes Bild sein - und beginne mit 
einigen elementaren Überlegungen. Da ist zunächst festzulegen, 
welche Größe das Bild später auf dem Display haben soll und 
dementsprechend ist die Vorlage in einzelne quadratische Bild¬ 
elemente zu zerlegen, die der Größe eines Charakters entspre¬ 
chen werden. Ist die Vorlage auf diese Weise aufbereitet, so muß 
für jedes der Bildelemente ein Charakter gefunden werden, der 
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diesem möglichst genau entspricht. Die einzelnen Zeichen müs¬ 
sen dann nur noch mit einem geeigneten Programm auf den 
Bildschirm des Computers gebracht werden, und fertig ist die 
Grafik. 

Sehen Sie sich die oben angestellten theoretischen Überlegungen 
doch einmal in der Praxis an! Als Vorlage für die zu erstellende 
Grafik soll Abbildung 4 dienen. 



Abb. 4: Vorlage für die Charaktergrafik 


Da es sich bei der vorliegenden Abbildung um kein Detail han¬ 
delt, wie es in Verdindung mit dem Programmieren von Spielen 
denkbar wäre, sondern um ein in sich geschlossenes Motiv, soll 
es den gesamten Bildschirm ausfüllen. Bei einer Arbeit in 
MODE 1 bedeutet das, daß die Vorlage in 40 mal 25 Bildele¬ 
mente zu unterteilen ist. Für jedes der eintausend Bildelemente 
muß nun ein Charakter gefunden werden, der es möglichst 
optimal wiedergibt. Um diese Arbeit nicht zur Sisyphusarbeit 
ausarten zu lassen, haben wir uns beim Digitalisieren der Grafik 
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auf Graustufen beschränkt, was dem Prinzip keinen Abbruch 
tut. Die verschiedenen Graustufen werden durch die Charakter 
143 (schwarz), 207 (grau), 206 (hellgrau) und 128 (weiß) erzeugt. 
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Nachdem zu jedem Bildelement der Vorlage ein entsprechender 
Charakter bestimmt worden ist, müssen die Zeichennummern 
dieser Charakter zu DATA-Zeilen zusammengestellt werden. 
Beim Erzeugen der DATA-Statements haben wir darauf geach¬ 
tet, daß die Zeichennummern, deren Zeichen später eine Zeile 
auf dem Bildschirm ausmachen, immer unter einer Statement¬ 
nummer zusammengefaßt sind. In jeder der 25 DATA-Zeilen 
befinden sich also genau 40 Zeichennummern, was das Auf¬ 
spüren von Tippfehlern erheblich erleichert. 
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Hardcopy 2: Viele Zeichen ergeben ein Bild 


Der Weg, aus den tausend DATAs, in denen die Bildvorlage 
verschlüsselt ist, die Grafik auf dem Bildschirm entstehen zu 
lassen, ist eine Aufgabe aus der zweiten Stunde eines BASIC- 
Kurses. In einer FOR-TO-NEXT-Schleife, die genau lOOOmal 
durchlaufen wird, werden die DATAs gelesen und mit PRINT 
CHR$ auf den Bildschirm gebracht. Von links oben nach rechts 
unten entsteht das Bild das auf Hardcopy 2 zu sehen ist. 


100 MODE 1 
110 INK 1,0 
120 INK 0,13 
130 1 

140 F0R 1=1 70 1000 
150 READ D 
160 PRINT CHR$(D); 
170 NEXT I 
180 1 
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190 DATA 143,143,143.143.143,143,143,143,143,143,143,143,143,143,1 

43.143.143.143.143.143.143.143.143.143.143.207.207.207.207.207.207 
,207,207,207,207,207,207,207,207,207 

200 DATA 143,143,143,143,143,143,143,143,143,143,143,143,143,143,1 

43.143.143.143.143.143.143.143.143.143.143.207.207.207.207.207.143 
,143,143,143,207,207,207,207,207,207 

210 DATA 143,143,143,143,143,143,143,143,143,143,143,143,143,143,1 

43.143.143.143.143.143.143.143.143.143.143.207.207.207.143.143.143 
,143,143,143,143,143,143,143,207,207 

220 DATA 143,143,143,143,143,143,143,143,143,143,143,143,143,143,1 

43.143.143.143.143.143.143.143.143.143.143.207.207.207.143.143.207 
,207,207,143,143,128,128,207,207,207 

230 DATA 143,143,143,143,143,143,143,143,143,143,143,143,143,143,1 
43,143,143,207,207,143,143,143,143,143,143,143,207,207,207,207,128 
,128,128,143,143,128,207,207,207,207 

240 DATA 143,143,143,143,143,143,143,143,143,143,143,143,143,143,1 

43.143.207.207.207.143.143.143.143.143.143.143.207.207.207.207.207 
,207,207,207,207,207,207,207,207,207 

250 DATA 143,143,143,143,143,143,143,143,143,143,143,143,143,207,2 
07,207,207,207,207,207,143,143,143,143,143,143,207,207,207,207,207 
,207,207,207,207,207,207,207,207,207 

260 DATA 128,143,143,143,143,143,143,143,143,207,207,207,207,143,1 

43.207.207.207.207.207.143.143.143.143.143.143.207.207.207.207.207 
,207,207,207,207.207,207,207,207,207 

270 DATA 128,128,128,143,143,207,207,207,143,143,207,207,207.207,1 

43.207.207.207.207.207.207.143.143.143.143.143.207.207.207.207.207 
,207,207,207,207,207,207,207,207,207 

280 DATA 128,128,128,207,207,207,207,207,143,143,207,207,207,207,1 

43.207.207.207.207.207.207.143.143.143.143.206.207.207.207.207.207 
,207,207,207,207,207,207,207,207,207 

290 DATA 128,128,128,207,207,207,207,207,207,128,207,207,207,207,2 
07,207,207,207,207,207,207,207.143,143,143,206,207,207,207,207,207 
, 207,207,207,207,207,207,207,207,207 

300 DATA 128,128,128,128,207,207,207,207,207,207,207,207,207,207,2 
07,207,207,207,207,207,207,143,143,143,143,206,207,207,207,207,207 
,207,207,207.143,207,143,207,143,207 

310 DATA 128,128,128,128,207,207,207,207,207,207,207,207,207,207,2 
07,207,207,207,207,207,143,143.143,143,206,206,207,207,207,207,207 
,207,207,207,143,207,207,207,207,207 
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320 DATA 128,128,128,128,207,207,207,207,207,207,207,207,207,207,2 
07,207,207,143,143,207,143,143,143,143,206,206,207,207,207,207,207 
,207,207,207,207,207,207,207,207,207 

330 DATA 128,128,128,128,207,207,207,207,207,207,207,207,207,207,1 

28.207.207.207.143.143.143.143.143.206.206.206.206.207.207.207.207 
,207,207,207,207,207,207,207,207,207 

340 DATA 128,128,128,128,207,207,207,207,207,207,207,207,207,207,1 

43.143.207.207.143.143.143.143.143.206.206.206.206.207.207.207.207 
,207,207,207,207,207,207,207,207,207 

350 DATA 128,128,128,128,128,207,207,207,207,207,207,207,207,207,1 

28.143.207.143.143.143.143.143.206.206.206.206.206.207.207.207.207 
,207,207,207,207,143,143,143,143,143 

360 DATA 128,128,128,128,128,207,207,207,143,207,207,207,207,207,2 
07,128,143,143,143,143,143,143,206,206,206,206,206,207,207,207,207 
,207,207,207,143,207,207,207,207,207 

370 DATA 128,128,128,128,128,207,207,207,143,207,207,207,207,207,1 

43.143.143.143.143.143.143.206.206.206.206.206.206.207.207.207.207 
,207,207,207,207,207,207,207,207,207 

380 DATA 128,128,128,128,128,143,207,143,207,207,207,207,207,143,1 

43.143.143.143.143.143.143.206.206.206.206.206.206.207.207.207.207 
,207,207,207,207,207,207,207,207,207 

390 DATA 128,128,128,128,128,143,143,143,207,207,207,207,143,143,1 

43.143.143.143.143.143.206.206.206.206.206.206.206.207.207.207.207 
,207,207,207,207,207,207,207,207,207 

400 DATA 128,128,128,128,128,207,143,207,207,207,207,143,143,143,1 

43.143.143.143.143.206.206.206.206.206.206.206.128.207.207.207.207 
,207,207,207,207,207,207,207,207,207 

410 DATA 128,128,128,128,128,143,143,207,207,207,143,143,143,143,1 

43.143.143.143.143.206.206.206.206.206.206.206.128.128.207.207.207 
,207,207,207,207,207,207,207,207,207 

420 DATA 128,128,128,128,128,143,207,207,143,143,143,143,143,143,1 

43.143.143.143.206.206.206.206.206.206.206.206.128.128.128.207.207 
,207,207,207,207,207,207,207,207,207 

430 DATA 128,128,128,128,128,207,143,143,143,143,143,143,143,143,1 

43.143.143.143.206.206.206.206.206.206.206.206.128.128.128.128.207 
,207,207,207,207,207,207,207,207,207 

440 1 

450 GOTO 450 
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3.4 Der Zeichensatz-Editor 

Bisher haben wir den Zeichensatz des CPC stets als etwas Stati¬ 
sches betrachtet, dessen Elemente im Inneren des Rechners fest¬ 
gelegt sind und an denen es nichts zu rütteln gibt. Daß es aber 
durchaus möglich ist, die einzelnen Charakter vollkommen 
umzugestalten, wollen wir Ihnen nun zusammen mit dem 
Handwerkszeug - wie man das macht - nahebringen. 

Sie haben schon erfahren, daß sich ein einzelnes Zeichen aus 
acht mal acht Bildpunkten zusammensetzt, die jeder das Aus¬ 
sehen eines Zeichens entscheidend beeinflussen. Wir wollen 
Ihnen nun zeigen, wie sich ein Zeichen zu einem beliebigen 
anderen umdefinieren läßt. Nehmen sie zu diesem Zweck doch 
einmal ein Blatt kariertes Papier und einen Stift zur Hand. 

Grenzen Sie mit dem Stift eine acht mal acht Felder große Flä¬ 
che auf dem Papier ab. In diese Fläche hinein zeichnen Sie dann 
ein beliebiges Zeichen, wobei vollkommen unerheblich ist, ob es 
sich um ein erkennbares oder ein Phantasiezeichen handelt. 
Malen Sie dann alle diejenigen Kästchen aus, die für das Er¬ 
scheinen des Zeichens wichtig sind. Auf diese Weise gewinnen 
Sie schon einen ersten Eindruck, wie dieses Zeichen später auf 
dem Bildschirm aussehen wird. 

Der nächste Schritt ist dieses Zeichen in eine für den Computer 
verständliche Form zu bringen. Betrachten Sie zu diesem Zweck 
die einzelnen Zeilen der Matrix isoliert und schreiben neben je¬ 
den Zeile ein Reihe von Nullen und Einsen. Die Null steht dabei 
für ein nicht ausgefülltes und die Eins für ein ausgefülltes 
Kästchen. Haben Sie diese Arbeit für alle acht Zeilen der Zei¬ 
chenmatrix richtig durchgeführt, so muß auf Ihrem Blatt etwas 
der Abbildung 5 entsprechendes zu sehen sein. 
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11011011 

00111100 

01100110 

01100110 

01111110 

01100110 

01100110 

00000000 


Abb. 5: Zeichendefinition per Hand 


Nachdem das Zeichen nun zumindest auf dem Papier existiert, 
bleibt die Frage: Wie kommt das Zeichen in den Computer? 
Speziell für diese Aufgabe sind im Locomotive-BASIC die bei¬ 
den Befehle 

SYMBOL AFTER x 


und 


SYMBOL X,rl,r2,r3,r4,r5,r6,r7,r8 

vorgesehen. Um die Funktionsweise dieser Befehle kennenzuler¬ 
nen, muß ein beliebiges Zeichen bestimmt werden, das durch 
die neue Zeichenmatrix ersetzt werden soll. In unserem Beispiel 
tauschen wir das Zeichen mit der Nummer 123 ({) gegen unsere 
Keration aus. Die Verfahrensweise ist denkbar einfach. Mit 
SYMBOL AFTER 123 wird die Umdefinition der Zeichen ab 
Nummer 123 ermöglicht; dann mit SYMBOL 123,rl,r2,r3,r4,r5, 
r6,r7,r8 die erstellte Matrix in den Zeichensatz integriert. Für rl 
bis r8 sind, von oben nach unten abgelesen, die Kolonnen von 
Nullen und Einses einzusetzen, die auf dem Papier neben der 
Zeichenmatrix stehen. Achten Sie darauf, daß es sich um eine 
binäre Schreibweise handelt, die mit "&X" eingeleitet werden 
muß. Für unser Beispiel durchgeführt sieht das gerade beschrie¬ 
bene in Programmform gebracht folgendermaßen aus: 
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10 SYMBOL AFTER 123 

20 SYMBOL 123,&X11011011.&X00111100,&X01100110,&X01100110,&X011111 
10,&X01100110,8X01100110,4X00000000 


Wenn dieses Programm durchgelaufen ist können Sie Ihr neu 
definiertes Zeichen ausprobieren, in dem Sie es mit PRINT 
CHR$(gewählte Zeichennummer) auf dem Bildschirm bringen! 

Gewiß ist der hier beschrittene Weg einer Zeichenumdefinition 
nur einer von vielen, doch veranschaulicht er recht gut, wie viel 
Mühe es macht nur ein Zeichen zu generieren und dem Com¬ 
puter zugänglich zu machen. Wieviel mehr Arbeit die Gestaltung 
eines vollständigen Zeichensatzes macht, kann sich jeder an den 
Knöpfen seiner Hose abzählen. 

Da Computer den Ruf genießen Arbeitsprozesse zu beschleuni¬ 
gen, liegt es geradezu auf der Hand, die zeitaufwendige Arbeit 
der Zeichenumdefinition dem CPC zu übertragen. Damit der 
CPC diese Aufgabe erledigen kann, muß ein Programm ge¬ 
schrieben werden, mit dem es möglich ist den Zeichensatz zu 
editieren. Welche Features muß ein solcher Zeichensatz-Editor 
haben? 

1. Der Editor muß über ein Editierfeld verfügen, das 
mit dem acht mal acht Felder großen Bereich auf 
dem Rechenkästchenpapier vergleichbar ist. Es muß 
möglich sein eine Zeichenmatrix in dieses Feld hin¬ 
eingeladen und modifiziert zu können. 

2. Das Programm muß einen Editiercursor haben, der 
mit dem Cursortasten innerhalb der Grenzen des 
Editierfeldes bewegt werden kann. 

3. Zur Modifikation des Zeichens im Editierfeld muß 
es möglich sein an der gegenwärtigen Position des 
Editiercursors einen Bildpunkt zu setzen oder zu lö- 
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sehen. Dieser Vorgang ist mit dem Ausmalen oder - 
radieren eines Kästchens auf dem Papier vergleich¬ 
bar. 

4. Es muß mit dem Editor möglich sein fertiggestellte 
Zeichen in den aktuellen Charaktersatz des CPC 
aufzunehmen und von diesem Zeitpunkt an dem Be¬ 
nutzer zur Verfügung zu stellen. 

5. Damit einmal veränderte Zeichen auch für spätere 
Anwendungen konserviert werden können, muß es 
möglich sein die modivizierten Zeichen auf Diskette 
wegzuschreiben. Dabei sollen die Zeichen in Form 
eines lauffähigen Programmfiles gespeichert sein, das 
bei Bedarf zu anderen Programmteilen hinzugeladen 
werden kann, aber auch eigenständig lauffähig ist. 


Auf der Grundlage dieser Forderungen haben wir für Sie einen 
Zeichnsatz-Editor geschrieben, dessen Handhabung wir zuerst 
erklären wollen, bevor das Programm abgedruckt wird. 

Nach dem Starten des Programms mit RUN wird auf dem Bild¬ 
schirm eine acht mal acht Charakter große Fläche umrandet, die 
sich später als Editierfeld erweisen wird. Rechts neben diesem 
Feld werden die Optionen des Programms zusammen mit ihren 
Anwahlmöglichkeiten ausgegeben. In der linken oberen Ecke 
(Defaultposition) des Editierfeldes erscheint der Editiercursor. 
Er hat die Gestalt eines marmoriert-ausgefüllten Charakters und 
läßt sich mit den Cusortasten innerhalb des Editierfeldes frei 
bewegen. Stößt er bei der Bewegung an die Umrandung des Fel¬ 
des, so erklingt ein Ton, der anzeigt, daß die gewünschte Posi¬ 
tion unzulässig ist. 

Akustische Fehleranzeigen erklingen immer dann, wenn dem 
Progra mm etwas abverlangt wird, was unsinnig oder unmöglich 
ist. So bewirkt ein Druck auf alle Tasten außer "N" und "Q", zu 
diesem Zeitpunkt, eine Fehlermeldung. Ein Druck auf die Taste 
"Q" beendet das Programm. Betätigt man hingegen die Taste "N" 
wie NEUES ZEICHEN, so fordert das Programm zur Eingabe 
einer Zeichennummer ein. Wurde ein Zahl eingegeben, mit 
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RETURN bestätigt und vom Programm akzeptiert, d.h. es gab 
keine Fehlermeldung auf Grund von Bereichsüberschreitung, so 
gibt der Editor das der Eingabe entsprechende Zeichen in der 
linken oberen Ecke des Bildschirms aus. Von dieser Stelle aus 
wird es dann in vergrößerter Form im Editierfeld sichtbar 
gemacht und an der HOME-Position wieder gelöscht. Ist die 
Bedienung des Editors bis zu diesem Punkt fortgeschritten, so 
können alle angezeigten Optinen angewählt werden. Betrachten 
Sie die übrigen Optionen im Detail: 

S: Durch einen Druck auf die Taste "S" wird der Bild¬ 

punkt an der momentanen Position des Editiercursors 
gesetzt. 

L: Das Löschen des Bildpunktes an Cursorposition be¬ 

wirkt hingegen das Betätigen des "L”-Taste. 

I: Soll ein Zeichen, so wie es im Editierfeld sichtbar 

ist, in den Zeichensatz aufgenommen werden, so 
kann das mit dieser Option erreicht werden. Ist ein 
Zeichen implementiert worden, so darf man sich 
nicht wundern, wenn es plötzlich in mitten einer 
Ausgabe des Editor erscheint. 

Q: Die Option PROGRAMM BEENDEN ist nicht so 

simpel, wie es auf den ersten Blick scheinen mag, 
denn sie beendet das Programm nur, wenn 

1. kein Zeichen zum Editieren ausgewählt wurde 
(Option N) 

2. wenn keines der editierten Zeichen in den 
Zeichensatz aufgenommen wurde (Option I). 

Wurde ein Zeichen in den Zeichensatz übernommen, 
so erscheint beim Druck auf die Taste "Q" die Frage: 
"WOLLEN SIE DIE EDITIERTEN ZEICHEN ALS 
PROGRAMMFILE AUF DISKETTE SICHER 
(J/N)". Wird diese Frage verneint, so bricht das Pro¬ 
gramm ab und stellt die umdefinierten Zeichen nur 
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im Speicher zur Verfügung - dort bleiben die Zei¬ 
chen erhalten, bis der Speicher gelöscht oder über¬ 
schrieben wird. Wird die Frage aber mit "J" beant¬ 
wortet, so fordert das Programm zur Eingabe eines 
Dateinamen auf und schreibt die editierten Zeichen 
auf Diskette weg. Danach trifft das Programm auf 
END. 

Als erste Anwendung für den Zeichensatz-Editor können Sie ja 
unser Beispiel auf greifen, mit dem wir Ihnen die Definition 
eines Zeichen per Hand veranschaulicht haben. Nach dem Star¬ 
ten des Programms betätigen Sie die Taste "N" und geben als 
Zeichennummer, wie in unserem Beispiel, die Zahl 123 ein. Das 
Programm erstellt nun das Abbild einer geschweiften Klammer 
im Editierfeld; die geschweifte Klammer verbirgt sich norma¬ 
lerweise hinter diesem Zeichencode. Mit Cursortasten und den 
Optionen PUNKT SETZEN und PUNKT LOESCHEN erstellen 
Sie das hinlänglich bekannte "Ä". Nach abgeschlossener Defini¬ 
tion sieht der Bildschirm aus wie auf Hardcopy 3 zu sehen. 




CURSOR BEUEGEN 

PUNKT SETZEN 
PUNKT LOESCHEN 

NEUES ZEICHEN 
IMPLEMENTIEREN 
PROGRAMM BEENDEN 


Hardcopy 3: Definition eines ”Ä' 







Der Zeichensatz - eine Funderube für Grafikelemente 


93 


Es folgt der Druck auf die "I"-Taste und damit die Aufnahme 
des "Ä" statt der "geschweiften Klammer auf" in den Zeichensatz 
des CPC. Wenn Sie das mit der Option PROGRAMM BEEN¬ 
DEN auf Diskette geschriebene Programmfile einiesen und mit 
LIST sichtbar machen, muß es folgendermaßen aussehen: 


1 'DIES IST EIN AUTOHATISCH ERZEUGTES PROGRAMME1 LE 

2 SYHBOL AFTER 0 

10 SYHBOL 123, 219, 60, 102, 102, 126, 102, 102, 0 


Dieses Programm können Sie jederzeit einladen und laufenlassen, 
es wird stets ein "Ä" auf Ihren Rechner implementieren. Sie 
sehen, mit dem Zeichensatz-Editor ist es wesentlich einfacher, 
ein Zeichen zu entwerfen und zu modifizieren. Als besonders 
effektiv erweist sich die Arbeit mit dem Zeichensatz-Editor, 
wenn man viele Zeichen verändern will, was zahlreiche Anwen¬ 
dungen im Bereich der Grafikprogrammierung erfordern. 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 


I*** *** 

'*** ZEICHENSATZ-EDITOR JST 21.8.1986 *** 

I*** *** 

I********************************************************* 


MODE 1 

SYHBOL AFTER 0 
WINDOWS,1,40,22,25 

I 

DIM ZEI(255,7) 

DIM EZC255) 


CX=5 

CY=9 


'EDITIERFELD UHRANDEN 
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270 1 

280 HOVE 60,141 
290 DRAWR 134,0 
300 DRAWR 0,134 
310 DRAWR -134,0 
320 DRAWR 0,-134 
330 1 

340 'MENUE AUSGEBEN 
350 1 

360 LOCATE 16,9:PR1NT CHR$<240);CHR$(241);CHR$<242);CHR$C243);»: C 
URSOR BEWEGEN" 

370 LOCATE 16,11:PRINT » S: PUNKT SETZEN" 

380 LOCATE 16,12:PRINT '* L: PUNKT LOESCHEN" 

390 LOCATE 16,14:PRINT 11 N: NEUES ZEICHEN» 

400 LOCATE 16,15:PRINT » I: IMPLEMENTIEREN» 

410 LOCATE 16,16:PRINT » Q: PROGRAMM BEENDEN" 

420 ' 

430 G0SUB 650 
440 ' 

450 'HAUPTSCHLEIFE 
460 ' 

470 B=1 
480 1 

490 E$=UPPER$(INKEYS) 

500 IF E$= M " THEN 490 

510 IF E$=CHR$(240) OR Et=CHR$(241) OR ES=CHRS(242) OR E$=CHR$<243 
) THEN B=0:GOSUB 600 

520 IF E$="S" OR E$="L" THEN B=0:GOSUB 850 
530 IF ES="N" THEN B=0:GOSUB 1080 
540 IF ES="I» THEN B=0:GOSUB 970 
550 IF E$="Q" THEN B=0:GOSUB 1400 
560 ■ 

570 IF B=1 THEN PRINT CHR$(7>; 

580 1 

590 GOTO 440 
600 ' 

610 'CURSOR BEWEGEN MIT BUFFER 
620 ' 

630 LOCATE CX,CY 
640 PRINT BUFFERS; 
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650 1 

660 ‘CURSOR BEUEGEN OHME BUFFER 
670 • 

680 IF E$=CHR$(240) THEN CY=CY-1 

690 IF E$=CHR$(241) THEN CY=CY+1 

700 IF E$=CHR$(242) THEN CX=CX-1 

710 IF E$=CHRS(243) THEN CX=CX+1 

720 1 

730 IF CX<5 THEN PRINT CHR$(7);:CX=5 
740 IF CX>12 THEN PRINT CHR$(7);:CX=12 
750 IF CY<9 THEN PRINT CHR$(7);:CY=9 
760 IF CY>16 THEN PRINT CHR$(7>;:CY=16 
770 • 

780 LOCATE CX,CY 

790 BUFFER$=COPYCHR$(#0) 1 

800 • 

810 LOCATE CX.CY 
820 PRINT CHR$(207); 

830 • 

840 RETURN 
850 1 

860 'PUNKT SETZEN - PUNKT LOESCHEN 
870 ' 

880 IF FLAG=0 THEN PRINT CHR$(7);:RETURN 
890 1 

900 ZEILE=7-(CY-9) 

910 SUH=2 A (8-(CX-4)) 

920 ' 

930 IF E$=“S" AND BUFFER$=" " THEN BUFFER$=CHR$<143):ZEI(ZEICHEN,Z 
EILE)=ZEI(ZEICHEN,ZEILE>+SUM 

940 IF E$="L , ‘ AND BUFFER$=CHR$(143) THEN BUFFER$=" ":ZEI(ZEICHEN,Z 
EILE)=ZEI(ZEIC HEN.ZEILE)-SUH 


1 Programmänderung für CPC 464: 


i******** 

20 DATA &CD,&60,&B8,&32,&70,&01,&C9,&00 
30 FOR A=374 TO 381 
40 READ D 
50 POKE A,D 
60 NEXT A 

790 CALL 374:BUFFER$=CHR$(PEEK(381)) 
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950 ' 

960 RETURN 
970 ' 

980 'IMPLEMENTIEREN 
990 ' 

1000 IF FLAG=0 THEN PRINT CHR$(7);:RETURN 
1010 1 

1020 SYMBOL ZEICHEN,ZEI(ZEICHEN,7),ZEI(ZEICHEN,6),ZEI(ZEICHEN,5),Z 
EI(ZEICHEN,4),ZE1(ZEICHEN,3),Z£I(ZEICHEN,2),ZEI(ZEICHEN,1),ZEI(ZEI 
CHEN,0) 

1030 ' 

1040 ZZ=ZZ+1 
1050 EZ(ZZ)=ZEICHEN 
1060 1 
1070 RETURN 
1080 1 

1090 'NEUES ZEICHEN 

1100 ' 

1110 INPUT#1,"BITTE UAEHLEN SIE EIN ZEICHEN";ZEICHEN 
1120 CLS#1 
1130 ' 

1140 IF ZEICHEN<0 OR ZEICHEN>255 THEN PRINT CHR$(7);:GOTO 1110 
1150 ' 

1160 IF ZEICHEN<32 THEN LOCATE 1,1:PRINT CHR$(1);CHR$(ZEICHEN);:GO 
TO 1190 

1170 LOCATE 1,1:PRINT CHR$(ZEICHEN); 

1180 ' 

1190 FOR ZEILE=0 TO 7 
1200 • 

1210 ZEI(ZEICHEN,ZEILE)=128*TEST(1,385+ZEILE*2)+64*TEST(3,385+ZEIL 
E*2)+32*TEST(5,385+ZEILE*2)+16*TEST(7,385+ZEILE*2)+8*TEST(9,385+ZE 
ILE*2)+4*TEST(11,385+ZEILE*2)+2*TEST(13,385+ZEILE*2)+1*TEST(15,385 
+ZEILE*2) 

1220 ' 

1230 LOCATE 5,(8-ZEILEJ+8 
1240 ' 

1250 FOR 1=7 TO 0 STEP -1 

1260 IF (ZEHZEICHEN,ZEILE) AND 2 Ä I)=2 A I THEN PRINT CHR$(143>; ELS 
E PRINT » 

1270 NEXT I 


Der Zeichensatz - eine Fundgrube für Grafikelemente 


97 


1280 PRIKT 
1290 1 

1300 NEXT ZEILE 
1310 ' 

1320 LOCATE 1,1 
1330 PRINT ■■ »; 

1340 ' 

1350 GOSUB 650 
1360 ' 

1370 FLAG=1 
1380 > 

1390 RETURN 
1400 ' 

1410 ‘PROGRAMM BEENDEN 
1420 ' 

1430 IF ZZ=0 THEN CLS:END 
1440 1 

1450 PRINT#1,»WOLLEN SIE DIE EDITIERTEN ZEICHEN ALS PROGRAMMFILE A 
UF DISKETTE SICHER (J/N)" 

1460 E$=INKEY$ 

1470 IF E$="" THEN 1460 
1480 1 

1490 IF UPPER$(E$)<>“J“ THEN CLStEND 
1500 • 

1510 CLS#1 

1520 INPUT#1,»GEBEN SIE EINEN DATEINAMEN EIN:",- DATE 1$ 

1530 IF LEN(DATEI$)>8 THEN 1510 
1540 OPENOUT DATEI$ 

1550 ' 

1560 PRINT#9,"1 ‘DIES IST EIN AUTOMATISCH ERZEUGTES PROGRAMMFILE 1 ' 
1570 PRINT#9,"2 SYMBOL AFTER 0» 

1580 ■ 

1590 FOR 1=1 TO ZZ 

1600 PRINT#9,STR${I*10)+" SYMBOL »+STR$(EZ(I))+",“+STR*(ZEI(EZ(I), 
7) )+","+STR${ZEI{EZ( I ),6))+", "+STR$(ZEI (EZCI ),5))+", l, +STR$CZEI(EZ( 
I),4))+' l ,"+STR$(ZEI(EZ(I),3))+»,»+STR$CZEICEZ<I),2))+ ,, ,»+STR$(ZEH 
EZ(I),1>)+","+STR$(ZEI<EZ<I>,0>) 

1610 NEXT I 
1620 ' 

1630 CLOSEOUT 
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1640 1 
1650 CLS 
1660 END 
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Programmbeschreibung: 

100-240 Definitionen, Dimensionierungen und Vorbele¬ 
gungen. Der Bildschirm wird in MODE 1 gebracht, 
die Umdefinition aller Zeichen ermöglicht (SYM¬ 
BOL AFTER 0) und ein Dialogfenster (#1) defi¬ 
niert, das im Verlauf des Programms als Ein-/Aus- 
gabeschnittstelle zwischen Rechner und Benutzer 
dienen soll. 

Die indizierte Variable ZEI wird als zwei¬ 
dimensionales Feld mit 256 mal 8 Elementen di¬ 
mensioniert. Diese Variable soll die Zei- 
chenmatrizen aufnehmen, die während des Pro¬ 
grammlaufs editiert werden. Erster Index ist die 
Nummer des betreffenden Zeichens, zweiter Index 
ist die Nummer der Zeile innerhalb einer Zei¬ 
chenmatrix, wenn man sich diese als aus 7 bis 0 
Zeilen zusammengesetzt vorstellt. Die auf diese 
Weise angesprochene Zahl liegt immer im Bereich 
0-255. Sie spiegelt, in eine Dualzahl umgerechnet, 
die gesetzten und nicht gesetzten Pixel innerhalb 
der angewählten Zeile des gewünschten Zeichens 
wieder. 

Die indizierte Variable EZ wird als Array mit 256 
Elementen dimensioniert und soll die Nummer der 
editierten Zeichen aufnehmen. Die Dimensionie¬ 
rung auf 256 Elemente wurde gewählt, damit jedes 
der 256 Zeichen des CPC umdefiniert werden 
kann. Die Variable ZZ enthält im Verlauf des Pro¬ 
gramms den Index für das letzte belegte Feld in 
EZ(x). 
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Die Variablen CX und CY, die die aktuelle Posi¬ 
tion des Editiercursors enthalten, werden auf ihren 
Defaultwert gebracht (linke obere Ecke des Edi¬ 
tierfeldes). 

250-320 Editierfeld unranden 

Eine Linie wird um die acht mal acht Charakter 
große Fläche gezeichnet, die später zum Editieren 
der Zeichen dienen wird. 

330-410 Menue ausgeben 

Neben dem Editierfeld wird die Liste der Pro¬ 
grammoptionen und ihrer Anwahlmöglichkeit aus¬ 
gegeben. 

430 Der Editiercursor wird an die Defaultposition im 

Editierfeld gebracht (CURSOR BEWEGEN OHNE 
BUFFER). 

440-590 Hauptschleife 

Die Hauptschleife bildet die Schaltzentrale im 

Zeichensatzeditor; von ihr werden alle Ver¬ 
zweigungen in die Unterprogramme vorgenommen. 

Zu Beginn der Hauptschleife wird die Variable B 
auf den Wert 1 gesetzt. Steht dieser Wert am Ende 
der Schleife unverändert in B, so wurde eine un¬ 
zulässige Eingabe gemacht und, es erfolgt die Aus¬ 
gabe eines Tones zur Fehleranzeige. Eine zulässige 
Eingabe setzt den Wert von B auf Null und ver¬ 
zweigt in das gewünschte Unterprogramm (GO- 
SUB). Nach dem Rücksprung aus dem Un¬ 
terprogramm wird die Hauptschleife erneut durch¬ 
laufen. 


600-640 Cursor bewegen mit Buffer 

Der Druck auf eine der vier Cursortasten veranlaßt 
die Hauptschleife, in dieses Unterprogramm zu 
verzweigen. An der aktuellen Position des Cursors 
wird der Inhalt der Variablen BUFFERS ausgege- 
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ben. Die weitere Verarbeitung erfolgt über CUR¬ 
SOR BEWEGEN OHNE BUFFER. 

650-840 Cursor bewegen ohne Buffer 

Zunächst wird die Bewegungsrichtung des Cursor 
aus der gedrückten Cursortaste (E$) ermittelt und 
die Position des Cursors, die in den Variablen CX 
und CY steht, entsprechend neu bestimmt. Ergibt 
sich durch die Bewegung eine Cursorposition, die 
außerhalb des Editierfensters liegt, so erfolgt eine 
akustische Fehlermeldung. Die Position des Cursors 
wird automatisch auf den letzten zulässigen Wert 
zurückgesetzt. Das Zeichen an der ermittelten Po¬ 
sition des Editiercursors wird aus dem Bildschirm¬ 
speicher gelesen und in der Variablen BUFFERS 
gerettet (vgl. CURSOR BEWEGEN MIT BUFFER) 
- nur so ist eine Bewegung des Editiercursors mög¬ 
lich, ohne den Inhalt des Editierfeldes zu zerstören. 
Jetzt endlich erscheint der Cursor (CHR$(207)) an 
der ihm zugedachten Stelle im Editierfeld. Rück¬ 
sprung! 

850-960 Punkt setzen - Punkt loeschen 

Ein Druck auf die Tasten "S" oder "L" hat die 
Hauptschleife dazu veranlaßt, die Verarbeitung an 
dieser Stelle das Programms weiterzuführen. Ent¬ 
hält die Variable FLAG den Wert 0, so wurde noch 
kein Zeichen ausgewählt, das editiert werden soll. 
Folglich ist es nicht sinnvoll, einen Punkt setzen 
oder löschen zu können - akustische Fehlermel¬ 
dung und Rücksprung zur Hauptschleife. 

Aus der aktuellen Zeilen-Position des Cursors (CY) 
wird ein Index errechnet (ZEILE), der den Zugriff 
auf die indizierte Variable ZEI(x,y), entsprechend 
der Bildschirmausgabe gestattet. Aus der Spalten- 
Position des Cursors (CX) wird, wiederum ent¬ 
sprechend der Darstellung auf dem Editierfeld, die 
Wertigkeit (SUM) des korrespondierenden Pixels 
der Zeichenmatrix an Cursorposition ermittelt. 
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Der nächste Schritt ist einfach: Soll der Punkt an 
Cursor-Position gesetzt werden (E$="S") und war er 
zuvor noch nicht gesetzt (BUFFER$=" "), dann 
wird die Variable BUFFERS so manipuliert, daß 
sie bei der nächsten Bewegung des Cursors einen 
gesetzten Bildpunkt (CHR$(143)) hinterläßt. Des 
weiteren wird der Inhalt der Variablen ZEI, indi¬ 
ziert durch die Nummer des aktuellen Zeichens 
und den Index, der sich aus der' aktuellen Zeilen- 
Position des Editiercursors ergibt (ZEILE), um die 
Wertigkeit des entsprechenden Pixels (SUM) er¬ 
höht. Analoges gilt für das Löschen eines Punktes. 

970-1070 Implementieren 

Das Betätigen der Taste "I" führte zum Aufruf 
dieses Unterprogramms, das unmittelbar, mit aku¬ 
stischer Fehlermeldung, wieder verlassen wird, 
wenn noch kein Zeichen zum Editieren ausgewählt 
wurde (FLAG=0). 

Wurde ein Zeichen zum Editieren bestimmt, so 
enthält die Variable ZEICHEN die Nummer des 
aktuellen Zeichens. Mit Hilfe von ZEICHEN ist 
ein Zugriff auf ZEI(x,y) möglich und die aktuelle 
Zeichenmatrix kann unter ihrer Zeichennummer in 
den Charaktersatz des CPC aufgenommen werden 
(Zeile 1020). Ist dies erfolgt, so wird der Inhalt der 
Variablen ZZ inkrementiert, und EZ(ZZ) wird die 
Nummer des aktuellen Zeichens zugewiesen. 

1080-1390 Neues Zeichen 

Ein Druck auf die Taste "N" hat die Hauptschleife 
in das Unterprogramm NEUES ZEICHEN ver¬ 
zweigt. Hier wird nun über das Dialogfenster (#1) 
die Eingabe einer Zeichennummer erwartet. Ist die 
Eingabe nicht im zulässigen Bereich, so wird er¬ 
neut zur Eingabe einer Zeichennummer aufgefor¬ 
dert. Ist der Inhalt der Variablen ZEICHEN im 
Bereich 0-255, also im zugelassenen Rahmen, so 
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müssen zunächst die nicht sofort darstellbaren 
Steuerzeichen (0-31) ausgesondert werden (Zeile 
1160). Der Textcursor wird auf die Position 1,1 
gebracht, die grafische Ausgabe von Steuerzeichen 
ermöglicht (vgl. CHR$(1)) und das Zeichen an 
dieser Stelle ausgegeben. Die Ausgabe herkömmli¬ 
cher Zeichen (Zeichennummer größer 31) wird 
übersprungen. Hat die Differenzierung der Zeichen 
ergeben, daß es sich um kein Steuerzeichen han¬ 
delt, so wird es in Zeile 1170 ausgegeben. 

In der FOR-TO-NEXT-Schleife (Zeile 1190-1300) 
wird das aktuelle Zeichen an der Charakterposition 
1,1 pixelweise aus dem Bildschirmspeicher gelesen 
und die Variable ZEI entsprechend ihrer Indizie¬ 
rung gefüllt. Die Zeilen 1250 bis 1270 haben aus¬ 
schließlich die Aufgabe, die Vergrößerung des ak¬ 
tuellen Zeichens im Editierfeld zu erzeugen. Nach 
dem Durchlauf der Schleife wird das Zeichen in 
der linken oberen Ecke wieder gelöscht; es befin¬ 
det sich nun sowohl in der Variablen ZEI(x,y) als 
auch in vergrößerter Form auf dem Bildschirm. 

Vor dem Rücksprung in die Hauptschleife wird 
noch der Cursor in das Editierfeld gesetzt, ohne 
BUFFERS auszugeben, und die Variable FLAG 
auf den Wert 1 gesetzt, was anzeigt, daß ein aktu¬ 
elles Zeichen vorhanden ist. 

1400-Ende Programm beenden 

Wurde innerhalb der Hauptschleife die Taste "Q" 
betätigt, so wird das Unterprogramm PRO¬ 
GRAMM BEENDEN angesprungen (Vorsicht, aus 
diesem Programm teil gibt es keinen Rückweg in 
die Hauptschleife!). 

Die erste Möglichkeit, daß das Programm ein Ende 
findet, ist, daß die Variable ZZ den Wert 0 hat, 
i.e. es wurde kein Zeichen neu in den Zeichensatz 
aufgenommen. 
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Die zweite Möglichkeit für ein Programmende ist 
eine andere Antwort als M J" auf die Frage, ob die 
editierten Zeichen als Programmfile auf Diskette 
gesichert werden sollen. Wurde mit einem Druck 
auf die Taste "J" geantwortet, so fragt der Rechner 
im Dialogfenster an, welchen Namen er dem zu er¬ 
zeugenden Programmfile geben soll. Ist der Name 
ordnungsgemäß eingegeben, so wird mit ihm eine 
Ausgabedatei auf Diskette eröffnet. 

In diese Datei wird zunächst der Kommentar ge¬ 
schrieben, daß es sich um ein automatisch gene¬ 
riertes Programmfile handelt, dann das Kommando 
SYMBOL AFTER 0, das eine Umdefinition des 
gesamten Zeich'ensatzes zuläßt. Ist dies geschehen, 
so werden alle umdefinierten Zeichen als vollstän¬ 
dige BASIC-Programmzeilen, mit aufsteigender 
Statementnummer, SYMBOL-Kommando, Zei¬ 
chennummer und zugehöriger Zeichenmatrix in die 
Ausgabe-Datei geschrieben. Das Zusammenspiel 
der Variablen ZZ und der indizierten Variablen 
EZ gewährleistet, daß ausschließlich die Zeichen 
auf Diskette gesichert werden, die auch tatsächlich 
umdefiniert wurden. Alle anderen bleiben unbe¬ 
rücksichtigt. 

Dritte und zugleich letzte Möglichkeit für ein Ende 
des Programms ist, daß die editierten Zeichen auf 
Diskette in Form eines Programmfiles gesichert 
wurden. 


3.5 Aus "ae" wird "ä" - Umlaute für den CPC 

Sicher wird es Ihnen ebenso wie uns stets ein Greul sein, bei 
Ihrem CPC auf Umlaute verzichten zu müssen. Statt der beiden 
Pünktchen über "a”, "o" und "u" wird diesen Lauten dann ein "e" 
angehangen, um zumindest auf diese Weise den Eindruck eines 
Umlauts zu vermitteln. Uns befriedigte diese Notlösung auf 
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Dauer nicht! So erstellten wir, angelehnt an die vorhandenen 
Zeichen - Umlaute sollen sich schließlich harmonischen in den 
übrigen Zeichensatz einfügen - die Zeichenmatrizen für die 
Buchstaben Ä, ö, Ü, ä, ö, ü und ß. 

Da Umlaute im Deutschen keine Seltenheit sind, ist es erstre¬ 
benswert, diese genau wie andere Zeichen unmittelbar über die 
Tastatur in den Rechner tasten zu können, ohne umständlich mit 
CHR$-Codes zu jonglieren. Es müssen also drei Tasten auf dem 
Keyboard des CPC-Rechners gefunden werden, unter denen, 
sowohl im Basis- als auch im Shift-Modus, Zeichen versteckt 
sind, die für den normalen Betrieb entbehrlich sind. Ebenso 
muß ein Platz auf der Tastatur für das "ß" aufgetan werden. 
Hier reicht jedoch eine vakate Stelle, da das "ß" als Versalie 
nicht exisiert. Wir entschlossen uns, mit einem Auge auf den 
DIN-Standard schielend, zu folgenden Umdefinitionen: 


Zeichennummer 

Zeichen (alt) 

Zeichen (neu) 

64 

a 

ü 

91 

c 

ä 

93 

3 

ö 

123 

t 

Ä 

124 

1 

Ü 

125 

> 

ö 

163 

£ 

ß 


Sicher stellt ein auf diese Weise umdefiniertes Keyboard ein 
Kuriosum dar, denn es handelt sich um eine amerikanische Ta¬ 
statur (QWERTY) mit deutschen Umlauten. Auf ein Vertauschen 
der Buchstaben ”Y" und ”Z" haben wir aber bewußt verzichtet, 
um unnötige Verwirrung zu vermeiden. Wer dennoch eine rich¬ 
tige deutsche Tastatur haben möchte, kann sie jederzeit mit dem 
BASIC-Kommando KEY DEF erzeugen. 

Zwei weitere Besonderheiten sind noch zu beachten: Durch ein¬ 
maligen Druck auf die CAPS-LOCK-Taste werden alle mit 
Buchstaben belegten Tasten in den Shift-Modus versetzt, bis dies 
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durch erneutes Betätigen von CAPS-LOCK widerrufen wird. 
Diese Regelung gilt nicht für die Tasten, die von uns für die 
Umlaute ausgewählt wurden, da sie ja normalerweise Sonder¬ 
zeichen statt Buchstaben tragen. Soll also ein großer Umlaut auf 
dem Bildschirm erscheinen, so muß immer eine der Shift-Tasten 
bemüht werden. 

Die Erwähnung der Shift-Tasten bringt uns unmittelbar zur 
zweiten Besonderheit der geänderten Tastatur, dem "ß”. Da die¬ 
ser Buchstabe ein Kleinbuchstabe ist, sollte er wie andere Klein¬ 
buchstaben im Basis-Modus der Tastatur erreichbar sein. Doch 
damit standen wir vor einem Dilemma - es gibt im Basis-Modus 
keine Taste mehr, die ein entbehrliches Zeichen beherbergt, es 
sein denn, das "ß" würde an eine vollkommen unübliche Stelle 
der Tastatur verbannt. Wir entschieben uns für einen Kompro¬ 
miß, der Umdefinition des "£" zum "ß". Damit war der rechte 
Platz für diesen Laut gefunden, allerdings kann er nur über 
Shift erreicht werden. 


1000 1 ********************************************************* 
1001 ■*** *** 

1002 '*** UMLAUTE FUER DEM CPC JST 2.6.1986 *** 

1003 '*** *** 

1004 1 ********************************************************* 

1005 • 

1006 SYMBOL AFTER 64 

1007 ' 

1008 FOR 1=0 TO 6 

1009 ' 

1010 READ CH 

1011 ' 

1012 FOR J=0 TO 7 

1013 READ X 

1014 TX(J)=X 

1015 NEXT J 

1016 ' 

1017 SYMBOL CH,TX(0) J TX(1),TX(2),TX(3) J TX(4),TX(5),TX(6),TX{7) 

1018 ' 

1019 NEXT I 
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1020 ' 

1021 NEU 

1022 ■ 


1023 DATA 123 


1024 ■ 

1025 DATA 8X11011011 

1026 DATA 8X00111100 

1027 DATA 8X01100110 

1028 DATA 8X01100110 

1029 DATA 8X01111110 

1030 DATA 8X01100110 

1031 DATA 8X01100110 

1032 DATA 8X00000000 

1033 ' 

1034 DATA 125 

1035 ' 

1036 DATA &X01100110 

1037 DATA 8X00111100 

1038 DATA 8X01100110 

1039 DATA &X01100110 

1040 DATA 8X01100110 

1041 DATA 8X01100110 

1042 DATA &X00111100 

1043 DATA 8X00000000 

1044 ■ 

1045 DATA 124 

1046 1 

1047 DATA 8X01100110 

1048 DATA SXOOOOOOOO 

1049 DATA SX01100110 

1050 DATA 8X01100110 

1051 DATA 8X01100110 

1052 DATA 8X01100110 

1053 DATA 8X00111100 

1054 DATA 8X00000000 

1055 ■ 

1056 DATA 91 

1057 ' 

1058 DATA 8X11000110 

1059 DATA 8X00000000 

1060 DATA 8X01111000 

1061 DATA 8X00001100 

1062 DATA 8X01111100 

1063 DATA 8X11001100 

1064 DATA 8X01110110 

1065 DATA SXOOOOOOOO 

1066 • 



1 



1 


Diese Kommentare zu den DATA-Statements dienen ausschließlich der 
besseren Übersicht des Lesers und können nicht eingetippt werden. 
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1067 DATA 

93 



1068 

' 




1069 

DATA 

4X01100110 

' ■■ 

„ 

1070 

DATA 

4X00000000 

1 


1071 

DATA 

4X00111100 

■■■■ 

1072 DATA &X01100110 

' ■■ 

■■ 

1073 

DATA 4X01100110 

1 ■■ 

■■ 

1074 

DATA 

4X01100110 

1 M 

HM 

1075 

DATA 

4X00111100 

■ ■ 

■■ 

1076 DATA 

4X00000000 

1 


1077 

' 




1078 

DATA 

64 



1079 

t 




1080 DATA 

4X00000000 

1 


1081 

DATA 

4X01100110 

1 HH 

HM 

1082 

DATA 

4X00000000 

1 


1083 

DATA 

4X01100110 

1 HH 

MH 

1084 

DATA 

4X01100110 

1 HH 

HH 

1085 

DATA 4X01100110 

1 ■■ 

■■ 

1086 

DATA 4X00111110 

■ ■ 

HHH 

1087 DATA 4X00000000 

1 


1088 

i 




1089 

DATA 

163 



1090 

1 




1091 

DATA 

4X01111100 

‘ MH 

HM 

1092 DATA &X11000110 

‘mm 

■■ 

1093 

DATA 

4X11000110 

'mm 

HH 

1094 

DATA 

4X11111100 

'mmmh 

■■ 

1095 

DATA 

4X11000110 

'mm 

HH 

1096 DATA &X11000110 

'mm 

■■ 

1097 DATA 

4X11111000 

'mmmh 

M 

1098 

DATA 4X11000000 

'mm 



Programmbeschreibung : 


Auf den Programmkopf folgend wird in Zeile 1006 mit dem 
BASIC-Kommando SYMBOL AFTER 64 die Umdefinition der 
Zeichen ab Zeichen Nummer 64 ermöglicht. Von Zeile 1008 bis 
Zeile 1019 reicht eine FOR-TO-NEXT-Schleife, in der die 
Zeichen "ÄÖÜäöüß" in den Zeichensatz aufgenommen werden. 
Genauer betrachtet, wird in der Schleife zuerst ein DATA-Sta- 
tement ausgelesen, das die Zeichennummer enthält. In einer 
zweiten FOR-TO-NEXT-Schleife werden dann die acht Zah¬ 
lenwerte, in denen die Zeichenmatrix enthalten ist, wiederum 
aus DATA-Statements ausgelesen und den indizierten Variablen 
TX(0) bis TX(7) zugewiesen. Unter der aktuellen Zeichennum¬ 
mer (CH) wird schließlich die Matrix in den Zeichensatz aufge- 
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nommen (Zeile 1017). In gleicher Weise wird mit allen sieben 
Zeichen verfahren. Ist die Umdefinition abgeschlossen, löscht 
sich das Programm im Speicher (Zeile 1021)! 

Von Zeile 1022 bis zum Ende des Programms stehen DATA-Sta¬ 
tements, von denen jeweils neun eine Gruppe bilden. Im ersten 
DATA einer solchen Gruppe steht die Nummer des Zeichens, 
das umdefiniert werden soll. Die darauf folgenden acht DATAs 
enthalten die Zeichenmatrix. Bei allen sieben Neunergruppen 
wurden die Zeichenmatrizen zur besseren Transparenz in binärer 
Darstellung abgedruckt. Die Kommentare zu den DATA-State- 
ments dienen ausschließlich der besseren Übersicht des Lesers 
und können nicht eingetippt werden. 


3.6 Ein alternativer Zeichensatz für den CPC 

Die CPCs zeichnen sich unter anderem dadurch aus, daß sie 80 
Zeichen auf ihrem Bildschirm darstellen können. Diese Tatsache 
verleiht dem Homecomputer CPC einen Hauch von Professiona¬ 
lität, der aber durch die Tatsache geschmälert wird, daß sich die 
Zeichen des integrierten Charaktergenerators in MODE 2 nicht 
ermüdungsfrei lesen lassen. Nutzt man seinen CPC für profes¬ 
sionelle Anwendungen, wie beispielsweise Textverarbeitung oder 
Programmieren, so sehnt man sich schnell nach einem Zei¬ 
chensatz, wie er bei guten Textterminals anzutreffen ist. 

Solche Zeichensätze bestechen geradezu durch ihre Einfachheit - 
so sind senkrechte wie waagerechte Linienzüge in der Regel aus 
einzelnen Pixein zusammengesetzt. Einfache Linienelemente 
können zwar, besonders bei Farbmonitoren, zu Problemen bei 
der Wiedergabe führen, doch hat sich in der Praxis erwiesen, 
daß es sehr stark davon abhängt welche, Farbkombination 
gerade eingestellt ist. 

Beim Schreiben aller Programme, die etwas größeren Zeitauf¬ 
wand erforderten, haben wir grundsätzlich mit dem unten abge¬ 
druckten Zeichensatz gearbeitet, wobei sich die Farbzusammen¬ 
stellung 
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BORDER 0 
INK 0,0 
INK 1,11 


als besonders gut im 80-Zeichenmodus lesbar erwiesen hat. 

Wenn Sie auch gerne mit unserem alternativen Zeichensatz ar¬ 
beiten möchten, so haben Sie die Wahl, das Programm in der 
abgedruckten Form einzutippen, oder mit dem Hilfsmittel Zei¬ 
chensatz-Editor die extra für diesen Zweck in Kommentarform 
neben den Matrizen stehenden Zeichen nachzuempfinden. 


iooo 1 ********************************************************* 


1001 '*** *** 

1002 '*** EIN ALTERNATIVER ZEICHENSATZ FUER DEN CPC *** 

1003 '*** JST/TAV 2.6.1986 *** 

1004 '*** *** 


1005 1 ********************************************************* 

1006 • 

1007 SYMBOL AFTER 33 

1008 ■ 

1009 FOR 1=33 TO 125 

1010 ' 

1011 FOR J=0 TO 7 

1012 READ X 

1013 TX(J>=X 

1014 NEXT J 

1015 ' 

1016 SYMBOL I,TX(0),TX(1),TX(2),TX(3),TX(4),TX(5),TX(6),TX(7) 

1017 1 

1018 NEXT I 

1019 • 

1020 NEU 

1021 ' 
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1022 

■ I 



1023 

i 



1024 

DATA 

8X00001000 

■ 

1025 

DATA 

8X00001000 

■ 

1026 

DATA 

8X00001000 

■ 

1027 

DATA 

8X00001000 

■ 

1028 

DATA 

8X00001000 

■ 

1029 

DATA 

8X00000000 

1 

1030 

DATA 

8X00001000 

■ 

1031 

DATA 

8X00000000 

1 

1032 

• 



1033 

1 II 



1034 

1 



1035 

DATA 

8X00100100 

■ ■ 

1036 

DATA 

8X00100100 

■ ■ 

1037 

DATA 

8X00100100 

■ ■ 

1038 

DATA 

8X00000000 

1 

1039 

DATA 

8X00000000 

1 

1040 

DATA 

8X00000000 

1 

1041 

DATA 

8X00000000 

1 

1042 

DATA 

8X00000000 

1 

1043 

1 



1044 




1045 

1 



1046 

DATA 

8X00100100 

■ ■ 

1047 

DATA 

8X00100100 

■ ■ 

1048 

DATA 

8X01111110 


1049 

DATA 

8X00100100 

■ ■ 

1050 

DATA 

8X01111110 

1 »■■■■ 

1051 

DATA 

8X00100100 

n m 

1052 

DATA 

8X00100100 

u m 

1053 

DATA 

8X00000000 

i 

1054 

1 



1055 

'$ 



1056 

1 



1057 

DATA 

8X00001000 

■ 

1058 

DATA 

8X00011110 

■■■■ 

1059 

DATA 

8X00100000 

■ 

1060 

DATA 

8X00011100 

■■■ 

1061 

DATA 

8X00000010 

■ 

1062 

DATA 

8X00111100 

■■■■ 

1063 

DATA 

8X00001000 

■ 

1064 

DATA 

8X00000000 

< 

1065 

• 



1066 




1067 

1 



1068 

DATA 

8X00000000 

i 

1069 

DATA 

8X01100010 

1 ■■ ■ 

1070 

DATA 

8X01100100 

1 um » 

1071 

DATA 

8X00001000 

u 

1072 

DATA 

8X00010000 

m 

1073 

DATA 

8X00100110 

u ■■ 

1074 

DATA 

8X01000110 

‘ ■ um 

1075 

DATA 

8X00000000 

i 

1076 

1 




i 


Diese Kommentare zu den DATA-Statements dienen ausschließlich der 
besseren Übersicht des Lesers und können nicht eingetippt werden. 
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1077 

■S 



1078 

1 



1079 

DATA 

SX00110000 

mm 

1080 

DATA 

SX01001000 

1 ■ ■ 

1081 

DATA 

SX01001000 

1 ■ ■ 

1082 

DATA 

SX0CT110000 

■* 

1083 

DATA 

SX01001010 

1 ■ ■ ■ 

1084 

DATA 

&X01000100 

1 ■ ■ 

1085 

DATA 

&X00111010 

■■■ ■ 

1086 

DATA 

&X00000000 

1 

1087 

1 



1088 

1 1 



1089 

1 



1090 

DATA 

&X00001000 

■ 

1091 

DATA 

SX00010000 

■ 

1092 

DATA 

SX00100000 

■ 

1093 

DATA 

SXOOOOOOOO 

1 

1094 

DATA 

SXOOOOOOOO 

1 

1095 

DATA 

SXOOOOOOOO 

1 

1096 

DATA 

SXOOOOOOOO 

1 

1097 

DATA 

SXOOOOOOOO 

1 

1098 

< 



1099 




1100 

1 



1101 

DATA 

SX0000010G 

■ 

1102 

DATA 

SX00001000 

■ 

1103 

DATA 

SX00010000 

■ 

1104 

DATA 

SX00010000 

■ 

1105 

DATA 

SX00010000 

■ 

1106 

DATA 

SX00001000 

■ 

1107 

DATA 

SX00000100 

■ 

1108 

DATA 

SXOOOOOOOO 

1 

1109 

1 



1110 

') 



1111 

1 



1112 

DATA 

SX00100000 

■ 

1113 

DATA 

SX00010000 

■' 

1114 

DATA 

SX00001000 

■ 

1115 

DATA 

SX00001000 

■ 

1116 

DATA 

SX00001000 

■ 

1117 

DATA 

SX00010000 

■ 

1118 

DATA 

SX00100000 

■ 

1119 

DATA 

SXOOOOOOOO 

1 

1120 

1 



1121 

1 * 



1122 

1 



1123 

DATA 

SX00001000 

■ 

1124 

DATA 

SX00101010 

■ ■ ■ 

1125 

DATA 

SX00011100 

■■■ 

1126 

DATA 

SX00111110 

■■■■■ 

1127 

DATA 

SX00011100 

■■■ 

1128 

DATA 

SX00101010 

■ ■ ■ 

1129 

DATA 

SX00001000 

■ 

1130 

DATA 

SXOOOOOOOO 

1 

1131 

1 
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1132 '+ 

1133 • 

1134 DATA &XOOOOOOOO 

1135 DATA &X00001000 

1136 DATA &X00001000 

1137 DATA &X00111110 

1138 DATA &X00001000 

1139 DATA &XG0001000 

1140 DATA &XC0000000 

1141 DATA &X00000000 

1142 1 

1143 

1144 1 

1145 DATA &XOOOOOOOO 

1146 DATA &XOOOOOOOO 

1147 DATA &XOOOOOOOO 

1148 DATA &X00000000 

1149 DATA &X00000000 

1150 DATA &X00001000 

1151 DATA &X00001000 

1152 DATA &X00010000 

1153 ' 

1154 

1155 ' 

1156 DATA &XOOOOOOOO 

1157 DATA &XOOOOOOOO 

1158 DATA &X00000000 

1159 DATA &X01111110 

1160 DATA &XOOOOOOOO 

1161 DATA &XOOOOOOOO 

1162 DATA &XOOOOOOOO 

1163 DATA &XOOOOOOOO 

1164 ' 

1165 

1166 1 

1167 DATA &XOOOOOOOO 

1168 DATA &XOOOOOOOO 

1169 DATA &X00000000 

1170 DATA &XOOOOOOOO 

1171 DATA &XOOOOOOOO 

1172 DATA &XOOOOOOOO 

1173 DATA &X00001000 

1174 DATA &XOOOOOOOO 

1175 1 

1176 '/ 

1177 1 

1178 DATA &XOOOOOOOO 

1179 DATA &X00000010 

1180 DATA &X00000100 

1181 DATA &X00001000 

1182 DATA &X00010000 

1183 DATA &X00100000 

1184 DATA &X01000000 

1185 DATA &XOOOOOOOO 

1186 ' 
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1187 '0 

1188 ' 

1189 DATA &X00111000 

1190 DATA &X01000100 

1191 DATA &X01001100 

1192 DATA &X01010100 

1193 DATA &X01100100 

1194 DATA &X01000100 

1195 DATA &X00111000 

1196 DATA &X0Ü000000 

1197 ' 

1198 '1 

1199 ' 

1200 DATA &X00010000 

1201 DATA &X00110000 

1202 DATA &X01010000 

1203 DATA &X00010000 

1204 DATA &X00010000 

1205 DATA &XOOO10000 

1206 DATA &X01111100 

1207 DATA 8X00000000 

1208 ' 

1209 '2 

1210 ■ 

1211 DATA &X00111100 

1212 DATA &X01000010 

1213 DATA &X00000010 

1214 DATA &X00001100 

1215 DATA &X00110000 

1216 DATA &X01000000 

1217 DATA &X01111110 

1218 DATA &XOOOOOOOO 

1219 • 

1220 '3 

1221 ' 

1222 DATA &X00111100 

1223 DATA &X01000010 

1224 DATA &X00000010 

1225 DATA 8X00011100 

1226 DATA &X00000010 

1227 DATA &X01000010 

1228 DATA &X00111100 

1229 DATA &XOOOOOOOO 

1230 ' 

1231 '4 

1232 > 

1233 DATA &X00000100 

1234 DATA &X00001100 

1235 DATA &X00010100 

1236 DATA &X00100100 

1237 DATA &X01111110 

1238 DATA &X00000100 

1239 DATA 8X00000100 

1240 DATA &XOOOOOOOO 

1241 ' 


■■■ 

■ ■ 
■ mm 
m u n 


■■■■ 

■ ■ 
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1242 '5 

1243 1 

1244 DATA &X01111110 

1245 DATA &X01000000 

1246 DATA &X01111000 

1247 DATA &X00000100 

1248 DATA &X00000010 

1249 DATA &X01000100 

1250 DATA &X00111000 

1251 DATA &X0000QQ0Q 

1252 1 

1253 '6 

1254 ■ 

1255 DATA &X00011100 

1256 DATA &X00100000 

1257 DATA &X01000000 

1258 DATA &X01111100 

1259 DATA &X01000010 

1260 DATA &X01000010 

1261 DATA &X00111100 

1262 DATA &XOOOOOOOO 

1263 1 

1264 '7 

1265 1 

1266 DATA &X01111110 

1267 DATA &X01000010 

1268 DATA &X00000100 

1269 DATA &X00001000 

1270 DATA &X00001000 

1271 DATA &X00001000 

1272 DATA &X00001000 

1273 DATA &X000Q0000 

1274 1 

1275 '8 

1276 ' 

1277 DATA &X00111100 

1278 DATA &X01000010 

1279 DATA &X01000010 

1280 DATA &X00111100 

1281 DATA &X01000010 

1282 DATA &X01000010 

1283 DATA &X00111100 

1284 DATA &XOOOOOOOO 

1285 1 

1286 >9 

1287 * 

1288 DATA &X00111100 

1289 DATA &X01000010 

1290 DATA &X01000010 

1291 DATA &X00111110 

1292 DATA &X00000010 

1293 DATA &X00000100 

1294 DATA &X00111000 

1295 DATA &X00000000 

1296 1 



■ ■ 

■ m 
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1297 

i - 



1298 

i 



1299 

DATA 

8X00000000 

1 

1300 

DATA 

8X00000000 

1 

1301 

DATA 

8X00001000 

■ 

1302 

DATA 

8X00000000 

1 

1303 

DATA 

8X00000000 

1 

1304 

DATA 

8X00001000 

■ 

1305 

DATA 

8X00000000 

1 

1306 

DATA 

8X00000000 

1 

1307 

■ 



1308 

i - 



1309 

i ' 



1310 

DATA 

8X00000000 

1 

1311 

DATA 

8X00000000 


1312 

DATA 

8X00001000 

■ 

1313 

DATA 

8X00000000 

1 

1314 

DATA 

8X00000000 

1 

1315 

DATA 

8X00001000 

■ 

1316 

DATA 

8X00001000 

■ 

1317 

DATA 

8X00010000 

■ 

1318 

i 



1319 

'< 



1320 

i 



1321 

DATA 

8X00000100 

1 

1322 

DATA 

8X00001000 

■ 

1323 

DATA 

8X00010000 

■ 

1324 

DATA 

8X00100000 

■ 

1325 

DATA 

8X00010000 

■ 

1326 

DATA 

8X00001000 

■ 

1327 

DATA 

8X00000100 

1 

1328 

DATA 

8X00000000 

1 

1329 

i 



1330 

■ — 



1331 

i 



1332 

DATA 

8X00000000 

1 

1333 

DATA 

8X00000000 

■ 

1334 

DATA 

8X01111110 

1 ■■■■! 

1335 

DATA 

8X00000000 

1 

1336 

DATA 

8X01111110 

1 Mil 

1337 

DATA 

8X00000000 

t 

1338 

DATA 

8X00000000 

1 

1339 

DATA 

8X00000000 

1 

1340 

i 



1341 

'> 



1342 

i 



1343 

DATA 

8X00100000 

■ 

1344 

DATA 

8X00010000 

■ 

1345 

DATA 

8X00001000 

■ 

1346 

DATA 

8X00000100 

x 

1347 

DATA 

8X00001000 

m 

1348 

DATA 

8X00010000 

m 

1349 

DATA 

8X00100000 

m 

1350 

DATA 

8X00000000 

i 

1351 

■ 
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1352 '? 

1353 1 

1354 DATA &X00111100 


1355 DATA &X01000010 

' ■ ■ 

1356 DATA &X00000010 

■ 

1357 DATA &X00001100 

■■ 

1358 DATA &X00010000 

■ 

1359 DATA &X00000000 

1360 DATA &X00010000 

1 

■ 

1361 DATA &XOOOOOOOO 

1362 1 

1363 '3 

1364 > 

1365 DATA &X00011100 

1 

1366 DATA &X00100010 

■ ■ 

1367 DATA &X01001010 

1 ■ ■ ■ 

1368 DATA &X01010110 

1 ■ ■ ■■ 

1369 DATA &X01001100 

1 ■ ■■ 

1370 DATA &X00100000 

■ 

1371 DATA &X00011100 

■■■ 

1372 DATA &XOOOOOOOO 

1373 1 

1374 'A 

1375 1 

1376 DATA &X00011000 

1 

1377 DATA &X00100100 

■ ■ 

1378 DATA &X01000010 

1 ■ ■ 

1379 DATA &X01111110 


1380 DATA &X01000010 

1 ■ ■ 

1381 DATA &X01000010 

l ! H 

1382 DATA &X01000010 

1 ■ m 

1383 DATA &X00000000 

1384 1 

1385 >8 

1386 ' 

1387 DATA &X01111100 

i 

1 ■■■■■ 

1388 DATA &X00100010 

■ ■ 

1389 DATA &X00100010 

■ ■ 

1390 DATA &X00111100 

■■■■ 

1391 DATA &X00100010 

■ ■ 

1392 DATA &X00100010 

■ ■ 

1393 DATA &X01111100 

1 ■■■■■ 

1394 DATA &XOOOOOOOO 

1395 ' 

1396 >C 

1397 1 

1398 DATA &X00011100 

i 

1399 DATA &X00100010 

■ ■ 

1400 DATA &X01000G00 

1 ■ 

1401 DATA &X01000000 

1 ■ 

1402 DATA &X01000000 

1 ■ 

1403 DATA &X00100010 

■ ■ 

1404 DATA &X00011100 

■■■ 

1405 DATA &XOOOOOOOO 

1406 ' 

i 
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1407 

■D 




1408 

1 




1409 

DATA 

8X01111000 

1 ■■■■ 

1410 

DATA 

8X00100100 

1 ■ 

■ 

1411 

DATA 

8X00100010 

1 ■ 

■ 

1412 

DATA 

8X00100010 

' ■ 

M 

1413 

DATA 

8X00100010 

1 1 

■ 

1414 

DATA 

8X00100100 

■ • 

■ 

1415 

DATA 

&X01111000 

1 Ml 

!■ 

1416 

DATA 

8X00000000 

1 


1417 

1 




1418 

■E 




1419 

1 




1420 

DATA 

&X01111110 

1 Hl 

IHMM 

1421 

DATA 

8X01000000 

1 ■ 


1422 

DATA 

8X01000000 

1 ■ 


1423 

DATA 

8X01111100 

1 Ml 

IHM 

1424 

DATA 

8X01000000 

' ■ 


1425 

DATA 

8X01000000 

• ■ 


1426 

DATA 

&X01111110 

1 Ml 

IHM 

1427 

DATA 

8X00000000 

1 


1428 

1 




1429 

'F 




1430 

1 




1431 

DATA 

sxonnno 

1 Ml 

IBM 

1432 

DATA 

8X01000000 

1 ■ 


1433 

DATA 

8X01000000 

1 ■ 


1434 

DATA 

&X01111100 

1 MM 

«MH 

1435 

DATA 

8X01000000 

1 ■ 


1436 

DATA 

&X01000000 

1 ■ 


1437 

DATA 

8X01000000 

< ■ 


1438 

DATA 

&XOOOOOOOO 

1 


1439 

1 




1440 

'G 




1441 

1 




1442 

DATA 

8X00011100 


■M 

1443 

DATA 

8X00100010 

H 

M 

1444 

DATA 

&X01000000 

1 H 


1445 

DATA 

8X01001110 

1 H 

■■■ 

1446 

DATA 

&X01000010 

1 ■ 

H 

1447 

DATA 

&X00100010 

■ 

M 

1448 

DATA 

&X00011100 

■■■ 

1449 

DATA 

&XOOOOOOOO 

■ 


1450 

1 




1451 

■H 




1452 

1 




1453 

DATA 

&X01000010 

• ■ 


1454 

DATA 

&X01000010 

1 ■ 


1455 

DATA 

&X01000010 

< ■ 


1456 

DATA 

8X01111110 

1 MM 

■HM 

1457 

DATA 

8X01000010 

1 ■ 


1458 

DATA 

8X01000010 

1 ■ 


1459 

DATA 

8X01000010 

' ■ 


1460 

DATA 

8X00000000 

1 


1461 

1 
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1462 'I 

1463 • 

1464 DATA 8X00011100 

■■■ 

1465 DATA 8X00001000 

■ 

1466 DATA 8X00001000 

■ 

1467 DATA 8X00001000 

■ 

1468 DATA 8X00001000 

■ 

1469 DATA 8X00001000 

■ 

1470 DATA 8X00011100 

■■■ 

1471 DATA 8X00000000 

1472 ' 

1473 'J 

1474 1 

1475 DATA 8X00001110 

1 

1476 DATA 8X00000100 

■ 

1477 DATA 8X00000100 

■ 

1478 DATA 8X00000100 

■ 

1479 DATA 8X00000100 

■ 

1480 DATA 8X01000100 

1 B g 

1481 DATA 8X00111000 

■■■ 

1482 DATA 8X00000000 

1483 ■ 

1484 'K 

1485 1 

1486 DATA 8X01000010 

1 

1 ■ ■ 

1487 DATA 8X01000100 

1 ■ m 

1488 DATA 8X01001000 

1 ■ ■ 

1489 DATA 8X01110000 

1 ■■■ 

1490 DATA 8X01001000 

1 ■ ■ 

1491 DATA 8X01000100 

1 ■ ■ 

1492 DATA 8X01000010 

i u ■ 

1493 DATA 8X00000000 

1494 1 

1495 'L 

1496 1 

1497 DATA 8X01000000 

i 

1 ■ 

1498 DATA 8X01000000 

1 ■ 

1499 DATA 8X01000000 

1 ■ 

1500 DATA 8X01000000 

1 ■ 

1501 DATA 8X01000000 

' ■ 

1502 DATA 8X01000000 

1 ■ 

1503 DATA 8X01111110 

1 ■■■■■■ 

1504 DATA 8X00000000 

1505 • 

1506 'H 

1507 1 

1508 DATA 8X01000010 

i 

1 ■ ■ 

1509 DATA 8X01100110 

1 ■■ ■■ 

1510 DATA 8X01011010 

1 ■ ■■ ■ 

1511 DATA 8X01011010 

1 ■ ■■ ■ 

1512 DATA 8X01000010 

1 ■ ■ 

1513 DATA 8X01000010 

1 ■ ■ 

1514 DATA 8X01000010 

1 ■ ■ 

1515 DATA 8X00000000 

1516 ' 

i 
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1517 

'N 




1518 

1 




1519 

DATA 

&X01000010 

1 ■ 

■ 

1520 

DATA 

&X01100010 

1 ■■ 

■ 

1521 

DATA 

&X01010010 

1 ■ 

■ ■ 

1522 

DATA 

&X01001010 

1 ■ 

■ ■ 

1523 

DATA 

&X01000110 

• ■ 

■■ 

1524 

DATA 

&X01000010 

1 ■ 

■ 

1525 

DATA 

&X01000010 

1 ■ 

■ 

1526 

DATA 

&XOOOOOOOO 

1 


1527 

1 




1528 

•0 




1529 

1 




1530 

DATA 

SX00111100 

■ 

III 

1531 

DATA 

&X01000010 

■ ■ 

■ 

1532 

DATA 

&X01000010 

• ■ 

■ 

1533 

DATA 

&X01000010 

' ■ 

■ 

1534 

DATA 

&X01000010 

> ■ 

■ 

1535 

DATA 

&X01000010 

1 ■ 

■ 

1536 

DATA 

SX00111100 

■ 

■■■ 

1537 

DATA 

sxoooooooo 

1 


1538 

1 




1539 

■P 




1540 

1 




1541 

DATA 

SX01111100 

1 mm 

■■■ 

1542 

DATA 

SX01000010 

• ■ 

■ 

1543 

DATA 

&X01000010 

1 ■ 

■ 

1544 

DATA 

&X01111100 

1 ■■ 

■■■ 

1545 

DATA 

&X01000000 

1 ■ 


1546 

DATA 

&X01000000 

1 ■ 


1547 

DATA 

&X01000000 

• ■ 


1548 

DATA 

SXOOOOOOOO 

1 


1549 

1 




1550 

•Q 




1551 

1 




1552 

DATA 

&X00111100 

■ 

■■■ 

1553 

DATA 

SX01000010 

* ■ 

■ 

1554 

DATA 

&X01000010 

' ■ 

■ 

1555 

DATA 

&X01000010 

1 ■ 

■ 

1556 

DATA 

&X01001010 

' ■ 

■ ■ 

1557 

DATA 

SX01000100 

1 ■ 

■ 

1558 

DATA 

&X00111010 

■ 

■■ ■ 

1559 

DATA 

8X00000000 

1 


1560 

1 




1561 

'R 




1562 

1 




1563 

DATA 

&X01111100 

1 ■■ 

■■■ 

1564 

DATA 

&X01000010 

1 ■ 

■ 

1565 

DATA 

&X01000010 

1 ■ 

■ 

1566 

DATA 

&X01111100 

1 ■■ 

■■■ 

1567 

DATA 

&X01001000 

1 ■ 

■ 

1568 

DATA 

&X01000100 

1 ■ 

■ 

1569 

DATA 

&X01000010 

1 ■ 

■ 

1570 

DATA 

sxoooooooo 

1 


1571 

1 




















1572 'S 

1573 • 

1574 DATA &X00111100 

1575 DATA 8X01000010 

1576 DATA 8X01000000 

1577 DATA 8X00111100 

1578 DATA 8X00000010 

1579 DATA 8X01000010 

1580 DATA 8X00111100 

1581 DATA 8X00000000 

1582 ' 

1583 'T 

1584 1 

1585 DATA 8X00111110 

1586 DATA 8X00001000 

1587 DATA 8X00001000 

1588 DATA 8X00001000 

1589 DATA 8X00001000 

1590 DATA 8X00001000 

1591 DATA 8X00001000 

1592 DATA 8X00000000 

1593 ‘ 

1594 'U 

1595 1 

1596 DATA 8X01000010 

1597 DATA 8X01000010 

1598 DATA 8X01000010 

1599 DATA 8X01000010 

1600 DATA 8X01000010 

1601 DATA 8X01000010 

1602 DATA 8X00111100 

1603 DATA 8X00000000 

1604 1 

1605 'V 

1606 1 

1607 DATA 8X01000010 

1608 DATA 8X01000010 

1609 DATA 8X01000010 

1610 DATA 8X00100100 

1611 DATA 8X00100100 

1612 DATA 8X00011000 

1613 DATA 8X00011000 

1614 DATA 8X00000000 

1615 1 

1616 ‘W 

1617 1 

1618 DATA 8X01000010 

1619 DATA 8X01000010 

1620 DATA 8X01000010 

1621 DATA 8X01011010 

1622 DATA 8X01011010 

1623 DATA 8X01100110 

1624 DATA 8X01000010 

1625 DATA 8X00000000 

1626 ' 
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1627 'X 

1628 ' 

1629 DATA &X01000010 

1630 DATA &X01G00010 

1631 DATA &X00100100 

1632 DATA &X00011000 

1633 DATA &X00100100 

1634 DATA &X01000010 

1635 DATA &X01000010 

1636 DATA &X00000000 

1637 ' 

1638 'Y 

1639 1 

1640 DATA &X001G0010 

1641 DATA &X00100010 

1642 DATA &X00100010 

1643 DATA &X00011100 

1644 DATA SX00001000 

1645 DATA &X00001000 

1646 DATA &X00001000 

1647 DATA &XOOOOOOOO 

1648 1 

1649 >Z 

1650 ■ 

1651 DATA &X01111110 

1652 DATA &X00000010 

1653 DATA &X00000100 

1654 DATA &X00011000 

1655 DATA &X00100000 

1656 DATA &X01000000 

1657 DATA &X01111110 

1658 DATA &XOOOOOOOO 

1659 ' 

1660 '[ 

1661 ' 

1662 DATA &X00011100 

1663 DATA &X00010000 

1664 DATA &X00010000 

1665 DATA &X00010000 

1666 DATA &X00010000 

1667 DATA &X00010000 

1668 DATA &X00011100 

1669 DATA &XOOOOOOOO 

1670 1 

1671 ‘\ 

1672 ■ 

1673 DATA &XOOOOOOOO 

1674 DATA &X01000000 

1675 DATA &X00100000 

1676 DATA &X00010000 

1677 DATA &X00001000 

1678 DATA &X00000100 

1679 DATA &X00000010 

1680 DATA &X00000000 

1681 ' 
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1682 




1683 

i 



1684 

DATA 

&X00111000 

■■■ 

1685 

DATA 

4X00001000 

■ 

1686 

DATA 

4X00001000 

■ 

1687 

DATA 

4X00001000 

■ 

1688 

DATA 

4X00001000 

■ 

1689 

DATA 

4X00001000 

■ 

1690 

DATA 

4X00111000 

■■■ 

1691 

DATA 

4X00000000 

1 

1692 

i 



1693 

1 A 



1694 

1 



1695 

DATA 

4X00001000 

■ 

1696 

DATA 

4X00011100 

■■■ 

1697 

DATA 

4X00101010 

■ ■ ■ 

1698 

DATA 

4X00001000 

■ 

1699 

DATA 

&X00001000 

■ 

1700 

DATA 

4X00001000 

■ 

1701 

DATA 

4X00001000 

■ 

1702 

DATA 

4X00000000 

1 

1703 

i 



1704 

i 



1705 

i“ 



1706 

DATA 

4X00000000 

1 

1707 

DATA 

&XOOOOOOOO 

1 

1708 

DATA 

4X00000000 

1 

1709 

DATA 

&XOOOOOOOO 

1 

1710 

DATA 

&X00000000 

1 

1711 

DATA 

sxoooooooo 

1 

1712 

DATA 

&XOOOOOOOO 

» 

1713 

DATA 

4X11111111 


1714 

i 



1715 

11 



1716 

i 



1717 

DATA 

&X00010000 

■ 

1718 

DATA 

&X00001000 

■ 

1719 

DATA 

4X00000100 

■ 

1720 

DATA 

4X00000000 

1 

1721 

DATA 

4X00000000 

1 

1722 

DATA 

4X00000000 

1 

1723 

DATA 

4X00000000 

1 

1724 

DATA 

4X00000000 

1 

1725 

i 



1726 

■a 



1727 

< 



1728 

DATA 

4X00000000 

1 

1729 

DATA 

4X00000000 

1 

1730 

DATA 

4X00111000 

■■■ 

1731 

DATA 

4X00000100 

■ 

1732 

DATA 

4X00111100 

■■■■ 

1733 

DATA 

4X01000100 

1 a a 

1734 

DATA 

4X00111010 

BBB B 

1735 

DATA 

4X00000000 

1 

1736 

i 
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1737 'b 

1738 ' 

1739 DATA &X010000G0 

1 ■ 

1740 DATA &X01000000 

1 ■ 

1741 DATA &X010.1110Q 

1 ■ ■■■ 

1742 DATA &X01100010 

1 ■■ ■ 

1743 DATA &X01000010 

1 ■ ■ 

1744 DATA SX01100010 

1 ■■ ■ 

1745 DATA &X01011100 

1 ■ umm 

1746 DATA &X00000000 

1747 ' 

1748 'c 

1749 1 

1750 DATA &XOOOOOOOO 

1751 DATA &X00000000 

1752 DATA &X00111100 

i 

i 

i 

1753 DATA &X01000010 

1 ■ ■ 

1754 DATA &X01000000 

1 ■ 

1755 DATA &X01000010 

1 ■ ■ 

1756 DATA &X00111100 

■■■■ 

1757 DATA &X00Q00000 

1758 1 

1759 'd 

1760 ' 

1761 DATA &X00000010 

i 

■ 

1762 DATA &X00000010 

■ 

1763 DATA &X00111010 

■■■ ■ 

1764 DATA &X01000110 

1 ■ ■■ 

1765 DATA &X01000010 

1 ■ ■ 

1766 DATA &X01000110 

1 ■ ■« 

1767 DATA &X00111010 

in ■ 

1768 DATA &XOOOOOOOO 

1769 1 

1770 'e 

1771 ' 

1772 DATA &X00000000 

1773 DATA &XG0000000 

1774 DATA &X00111100 

i 

■ 

i 

1775 DATA &X01000010 

1 ■ ■ 

1776 DATA &X01111110 

1 ■■■■■■ 

1777 DATA &X01000000 

1 ■ 

1778 DATA &X00111100 

■■■■ 

1779 DATA SXOOOOOOOO 

1780 ' 

1781 'f 

1782 1 

1783 DATA &X00001100 

i 

1784 DATA &X00010010 

■ ■ 

1785 DATA &XOOO10000 

■ 

1786 DATA &X01111100 


1787 DATA &X00010000 

■ 

1788 DATA &X00010000 

■ 

1789 DATA &X00010000 

■ 

1790 DATA &XOOOOOOQO 

1791 1 

i 









124 


Das große Grafikbuch zum CPC 


1792 

'g 



1793 

i 



1794 

DATA 

&XOOOOOOOO 

1 

1795 

DATA 

4X00000000 

1 

1796 

DATA 

&X00111010 

■■■ ■ 

1797 

DATA 

&X01000110 

1 ■ ■■ 

1798 

DATA 

&X01000110 

1 ■ mm 

1799 

DATA 

&X00111010 

mmm m 

1800 

DATA 

&X00000010 

u 

1801 

DATA 

&X00111100 

umum 

1802 

i 



1803 

'h 



1804 

t 



1805 

DATA 

&X01000000 

1 ■ 

1806 

DATA 

&X01000000 

1 ■ 

1807 

DATA 

&X01011100 

1 ■ ■■■ 

1808 

DATA 

&X01100010 

1 ■■ ■ 

1809 

DATA 

&X01000010 

1 ■ ■ 

1810 

DATA 

&X01000010 

1 ■ ■ 

1811 

DATA 

&X01000010 

1 ■ ■ 

1812 

DATA 

&X00000000 

1 

1813 

i 



1814 

M 



1815 

i 



1816 

DATA 

&X00001000 

■ 

1817 

DATA 

&X00000000 

1 

1818 

DATA 

8.X00011000 

■■ 

1819 

DATA 

&X00001000 

■ 

1820 

DATA 

&X00001000 

■ 

1821 

DATA 

&X00001000 

■ 

1822 

DATA 

&X00011100 

■■■ 

1823 

DATA 

&X00000000 

1 

1824 

i 



1825 

'j 

i 



1826 



1827 

DATA 

&X00000100 

■ 

1828 

DATA 

&X00000000 

1 

1829 

DATA 

&X00001100 

■■ 

1830 

DATA 

&X00000100 

■ 

1831 

DATA 

&X00000100 

■ 

1832 

DATA 

&X00000100 

■ 

1833 

DATA 

&X01000100 

1 ■ ■ 

1834 

DATA 

&X00111000 

■■■ 

1835 

i 



1836 

•k 



1837 

■ 



1838 

DATA 

&X01000000 

1 ■ 

1839 

DATA 

&X01000000 

1 ■ 

1840 

DATA 

&X01000100 

* ■ ■ 

1841 

DATA 

&X01001000 

1 ■ ■ 

1842 

DATA 

&X01010000 

1 * ■ 

1843 

DATA 

&X01101000 

1 ■■ ■ 

1844 

DATA 

&X01000100 

1 1 ■ 

1845 

DATA 

&XOOOOOOOO 

1 

1846 

i 
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1847 'l 

1848 » 

1849 DATA &X00011000 

■■ 

1850 DATA &X00001000 

■ 

1851 DATA &X00001000 

■ 

1852 DATA &X00001000 

■ 

1853 DATA &X00001000 

■ 

1854 DATA &X00001000 

■ 

1855 DATA &X00011100 

mmm 

1856 DATA &XOOOOOOOO 

1857 1 

1858 'm 

1859 ' 

1860 DATA &XOOOOOOOO 

1861 DATA &XOOOOOOOO 

1862 DATA &X01110110 

i 

i 

i 

1 ■■■ ■■ 

1863 DATA &X01001001 

1 ■ ■ i 

1864 DATA &X01001001 

1 ■ ■ 

1865 DATA &X01001001 

1 ■ ■ i 

1866 DATA &X01001001 

1 ■ ■ 

1867 DATA &X00000000 

1868 1 

1869 'n 

1870 ' 

1871 DATA &XOOOOOOOO 

1872 DATA &XOOOOOOOO 

1873 DATA &X01011100 

i 

i 

i 

1 ■ uum 

1874 DATA &X01100010 

1 ■■ ■ 

1875 DATA &X01000010 

1 ■ ■ 

1876 DATA &X01000010 

1 ■ ■ 

1877 DATA &X01000010 

1 ■ ■ 

1878 DATA &X00000000 

1879 1 

1880 ’o 

1881 ' 

1882 DATA 8X00000000 

1883 DATA SXOOOOOOOO 

i 

i 

i 

1884 DATA &X00111100 

■■■■ 

1885 DATA &X01000010 

1 ■ ■ 

1886 DATA &X01000010 

1 ■ ■ 

1887 DATA &X01000010 

1 ■ ■ 

1888 DATA &X00111100 

■■■■ 

1889 DATA &XOOQOOOOO 

1890 1 

1891 >p 

1892 • 

1893 DATA &XOOOOOOOO 

1894 DATA 4X00000000 

1895 DATA &X01011100 

i 

i 

i 

1896 DATA &X01100010 

1 ■■ ■ 

1897 DATA &X01100010 

* ■■ ■ 

1898 DATA &X01011100 

1 ■ Bll 

1899 DATA &X01000000 

1 ■ 

1900 DATA &X01000000 

1 ■ 

1901 1 
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1902 

’q 



1903 




1904 

DATA 

8X00000000 

1 

1905 

DATA 

sxoooooooo 

1 

1906 

DATA 

8X00111010 

■ ■■ ■ 

1907 

DATA 

8X01000110 

■ ■ ■■ 

1908 

DATA 

8X01000110 

' ■ mm 

1909 

DATA 

&X00111010 

■■■ ■ 

1910 

DATA 

8X00000010 

■ 

1911 

DATA 

&X00000010 

■ 

1912 

1 



1913 

1 r 



1914 

i 



1915 

DATA 

8X00000000 

i 

1916 

DATA 

sxoooooooo 

i 

1917 

DATA 

8X01011100 

1 ■ ■■■ 

1918 

DATA 

8X01100010 

1 ■■ ■ 

1919 

DATA 

8X01000000 

1 ■ 

1920 

DATA 

8X01000000 

1 ■ 

1921 

DATA 

8X01000000 

' ■ 

1922 

DATA 

8X00000000 

i 

1923 

1 



1924 

's 



1925 

• 



1926 

DATA 

8X00000000 

i 

1927 

DATA 

SXOOOOOOOO 

i 

1928 

DATA 

8X00111110 

■■■■■ 

1929 

DATA 

8X01000000 

' ■ 

1930 

DATA 

8X00111100 

■■■■ 

1931 

DATA 

8X00000010 

■ 

1932 

DATA 

8X01111100 


1933 

DATA 

8X00000000 

i 

1934 

1 



1935 

't 



1936 

1 



1937 

DATA 

8X00010000 

■ 

1938 

DATA 

8X00010000 

■ 

1939 

DATA 

8X01111100 

1 ■■■■■ 

1940 

DATA 

8X00010000 

■ 

1941 

DATA 

8X00010000 

■ 

1942 

DATA 

8X00010010 

■ ■ 

1943 

DATA 

8X00001100 

mm 

1944 

DATA 

8X00000000 

i 

1945 

1 



1946 

•u 



1947 

1 



1948 

DATA 

8X00000000 

i 

1949 

DATA 

8X00000000 

■ 

1950 

DATA 

8X01000010 

1 ■ ■ 

1951 

DATA 

8X01000010 

1 ■ ■ 

1952 

DATA 

8X01000010 

1 ■ ■ 

1953 

DATA 

8X01000110 

1 h ■■ 

1954 

DATA 

8X00111010 

■■■ ■ 

1955 

DATA 

8X00000000 

i 

1956 

1 
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1957 'v 

1958 1 

1959 DATA 8X00000000 

1960 DATA 8X00000000 

1961 DATA 8X01000010 

1962 DATA 8X01000010 

1963 DATA 8X01000010 

1964 DATA 8X00100100 

1965 DATA &X00011000 

1966 DATA 8X00000000 

1967 ' 

1968 1 u 

1969 ' 

1970 DATA 8X00000000 

1971 DATA 8X00000000 

1972 DATA &X01000001 

1973 DATA 8X01001001 

1974 DATA 8X01001001 

1975 DATA 8X01001001 

1976 DATA 8X00110110 

1977 DATA 8X00000000 

1978 ' 

1979 'x 

1980 ■ 

1981 DATA &XOOOOOOOO 

1982 DATA 8X00000000 

1983 DATA 8X01000010 

1984 DATA 8X00100100 

1985 DATA 8X00011000 

1986 DATA 8X00100100 

1987 DATA 8X01000010 

1988 DATA 8X00000000 

1989 ' 

1990 'y 

1991 ' 

1992 DATA 8X00000000 

1993 DATA 8X00000000 

1994 DATA 8X01000010 

1995 DATA 8X01000010 

1996 DATA 8X01000110 

1997 DATA 8X00111010 

1998 DATA 8X00000010 

1999 DATA 8X00111100 

2000 1 

2001 1 z 

2002 ' 

2003 DATA 8X00000000 

2004 DATA 8X00000000 

2005 DATA 8X01111110 

2006 DATA 8X00000100 

2007 DATA 8X00011000 

2008 DATA 8X00100000 

2009 DATA 8X01111110 

2010 DATA 8X00000000 

2011 • 




■ ■ 


■ ■ 
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2012 

'i 



2013 

i 



2014 

DATA 

8X00001100 

■■ 

2015 

DATA 

8X00010000 

■ 

2016 

DATA 

8X00001000 

■ 

2017 

DATA 

8X00110000 

■■ 

2018 

DATA 

8X00001000 

■ 

2019 

DATA 

8X00010000 

■ 

2020 

DATA 

8X00001100 

■ ■ 

2021 

DATA 

8X00000000 

1 

2022 

I 



2023 

■| 



2024 

i ' 



2025 

DATA 

8X00001000 


2026 

DATA 

8X00001000 

■ 

2027 

DATA 

8X00001000 

■ 

2028 

DATA 

8X00001000 

■ 

2029 

DATA 

8X00001000 

■ 

2030 

DATA 

8X00001000 

■ 

2031 

DATA 

8X00001000 

■ 

2032 

DATA 

8X00000000 

1 

2033 

i 



2034 

'} 



2035 

i 



2036 

DATA 

8X00110000 

■ * 

2037 

DATA 

8X00001000 

■ 

2038 

DATA 

8X00010000 

■ 

2039 

DATA 

8X00001100 

■M 

2040 

DATA 

8X00010000 

■ 

2041 

DATA 

8X00001000 

■ 

2042 

DATA 

8X00110000 

M 

2043 

DATA 

8X00000000 

1 

Programmbeschreibung: 



Auf den Programmkopf folgend wird in Zeile 1007 mit dem 
BASIC-Kommando SYMBOL AFTER 33 die Umdefinition der 
Zeichen ab Nummer 33 eingeleitet. Von Zeile 1009 bis Zeile 
1018 wird in einer FOR-TO-NEXT-Schleife der Zeichensatz 
modifiziert. Die äußere Schleife erzeugt die Nummern der Zei¬ 
chen die umdefinierte werden sollen. In einer zweiten FOR-TO- 
NEXT-Schleife werden dann acht Zahlenwerte, in denen die 
Zeichenmatrix enthalten ist, aus DATA-Statements ausgelesen 
und den indizierten Variablen TX(0) bis TX(7) zugewiesen. 
Unter der aktuellen Zeichennummer (I) wird schließlich die 
Matrix in den Zeichensatz aufgenommen (Zeile 1016). In glei¬ 
cher Weise wird mit allen Zeichen verfahren. Ist die Umdefini¬ 
tion abgeschlossen, stellt das Programm den neuen Zeichensatz 
zur Verfügung und löscht sich selbst im Speicher (Zeile 1020)! 







Der Zeichensatz - eine Fundgrube für Grafikelemente 


129 


Von Zeile 1021 bis zum Ende des Programms stehen DATA- 
Statements, von denen jeweils acht eine Gruppe bilden, die die 
Matrix eines Zeichens enthält. Um etwas Struktur in den Wust 
von DAT As zu bringen, sind die Statements einer Gruppe durch 
Kommentarzeilen getrennt, die jeweils das Zeichen in Klar¬ 
schrift enthalten, das in der nachfolgenden Matrix verschlüsselt 
steht. Aus Gründen besserer Anschaulichkeit wurde eine binäre 
Darstellungsform für die Zeichenmatrizen gewählt. Die Kom¬ 
mentare zu den DATA-Statements dienen ausschließlich der 
besseren Übersicht des Lesers und können nicht eingetippt wer¬ 
den. 


3.7 DESTROYED - Ein Arcade-Spiel in BASIC 

Mit Videoautomaten wie "Space Invaders", "Defender" oder "Puc- 
Man" wurde Mitte der siebziger Jahre ein Meilenstein in der 
Unterhaltungsindustrie gelegt. Erstmals war es gelungen, den 
Computer - wenn auch im eingeschränkten Maße - kommerziell 
nutzbar zu machen. Als weltweit die Spielleidenschaft der 
Bevölkerung drastisch zunahm, eskalierte die ganze Sache zu 
einem regelrechten "Videoboom". Er war auch maßgeblich an 
der rasanten Entwicklung der Homecomputer beteiligt. 

Heute kann man für nahezu jedes Computersystem Videospiele 
erwerben. Auch und gerade beim Schneider-CPC ist die Aus¬ 
wahl an Videospielen beachtlich. Leider ist dieses Spielvergnü¬ 
gen nicht gerade billig und so verzichten viele Computerbesitzer 
auf Einsatz ihres Gerätes im Freizeitbereich. Dem kann abge¬ 
holfen werden! 

Obwohl der Schneider-CPC nicht unbedingt für den Videospiel¬ 
betrieb konzipiert worden ist, bietet er dank seiner enormen 
Grafikfähigkeiten die Möglichkeit, sowohl in BASIC als auch in 
Maschinensprache eigene Videospiele zu entwickeln. Erstaunli¬ 
cherweise kann auch ein in BASIC realisiertes Spiel - dank des 
mächtigen BASIC-Befehlsschatzes aller CPCs - einen durchaus 
schnellen und rasanten Spielverlauf beinhalten und somit akti¬ 
onsreich gestaltet werden. Und gerade diese Tatsache ermöglicht 
auch dem Anfänger mit relativ wenig Aufwand ein Videospiel 
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mit hohem Qualitätsstandard zu entwickeln. Wie und mit wel- 
eher Technik man eine Spielidee in ein Programm umsetzt, soll 
an dieser Stelle erläutert werden. In diesem Zusammenhang wird 
die vorgestellte "Charakter-Definition" eine bedeutende Rolle 
spielen. Alle in unserem Spiel vorkommenden Objekte werden 
nämlich mit Hilfe von umdefinierten Charaktern erzeugt. Große 
Objekte bestehen in diesem Zusammenhang - ähnlich wie ein 
Mosaik - aus mehreren Bestandteilen, wobei wiederum umdefi¬ 
nierte Charakter die Objektteile repräsentieren. 


3.7.1 Die Spielidee 

Jedem Videospiel geht eine Spielidee vorraus. Es ist sinnlos, 
nach bester Hackermanier einfach "drauflos zu programmieren". 
Derartige Versuche enden in den meisten Fällen in einem abso¬ 
luten Chaos und sind geradezu zum Scheitern verurteilt. Was 
jeder Spieleprogrammierer benötigt, ist eine Grundidee und ein 
Spielziel - einen Leitfaden, den er Stück für Stück in sein Pro¬ 
gramm umsetzen kann. Derartige Ideen sind leicht zu finden. 
Beispielsweise kann eine Film, die Story eines actiongeladenen 
Buches oder ein professioneller Spielautomat als Vorlage für Ihr 
Videospiel dienen. Selbstverständlich ist auch Ihrer eigenen 
Phantasie keine Grenzen gesetzt. 

Das Videospiel, das wir Ihnen vorstellen möchten, trägt den 
Namen "DESTROYED" und gehört zur Kategorie der Weltraum¬ 
spiele. Die Hintergrundgeschichte ist schnell erklärt. 

"Irgendwo im Universum befindet sich eine riesige Raum¬ 
station. Feindliche Piraten wollen sie zerstören, um die ab¬ 
solute Macht über das heimische Sonnensystem zu erlan¬ 
gen. Es gilt nun, die Piraten mit vier zu Verfügung ste¬ 
henden gigantischen Bordkanonen abzuwehren. Da die 
Akkus des Waffensystems der Raumstation nicht für den 
simultanen Einsatz der Laserkanonen ausgelegt sind, kann 
nur immer abwechselnd mit einem Geschütz geschossen 
werden. Die gesamte Aktion wird zusätzlich durch den be¬ 
grenzten Energievorrat erschwert. 
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Die Piraten greifen in vier Angriffswellen von allen Seiten 
an. Zuerst versuchen sie, mit ihren Schiffen die Station 
nach bester ■ Kamikaze-Manier zu rammen. Danach setzen 
sie Photonentorpedos ein. In den beiden letzten Angriffs¬ 
wellen kombinieren die Piraten ihre Strategien und greifen 
mit allem an, was sie haben. Das Ganze endet in einer gi¬ 
gantischen Materialschlacht, bei der der Commander un¬ 
serer Raumstation - also der Spieler - einen kühlen Kopf 
behalten muß und nicht durch sinnlose. Ballerei Energie 
verschwenden darf. Jeder Schuß muß sitzen! Ist auch diese 
Schlacht erfolgreich geschlagen, erwartet den siegreichen 
Helden ein gefahrloses Training (Bonus-Runde), die sich 
positiv auf sein Punktekonto auswirken kann. Danach be¬ 
ginnt der ganze Zauber mit erhöhtem Schwierigkeitsgrad 
von neuem..." 

Um die feindlichen Piratenschiffe abzuwehren, muß der Spieler 
die gewünschte Laserkanone mit der in deren Richtung zeigen¬ 
den Pfeiltaste aktivieren. Geschossen wird mittels der Leertaste! 


3.7.2 Aufbau der Szenarien 

Wie aus der Spielidee ersichtlich ist, besteht eine Spielrunde aus 
fünf Szenarien - vier Angiffswellen und einer Bonus-Runde. 
Jede dieser Spielszenen muß nun grafisch gestaltet werden. 
Damit wir einen Überblick über die für den Spielablauf benö¬ 
tigten Objekte bekommen, muß die Handlung jedes Szenarios 
definiert werden. Die einzelnen Spielszenen unterscheiden sich 
wie folgt: 


Szene 1 (Destruction Wave): 

Feindliche Raumschiffe greifen an und müssen zerstört werden. 


Szene 2 (Missile Wave): 

Feindliche Geschosse müssen zerstört werden. 


132 


Das große Grafikbuch zum CPC 


Szene 3 (Survival Wave): 

Feindliche Raumschiffe und Geschosse müssen zerstört werden. 
Falls dabei nicht die eigene Station eliminiert wird, erhält der 
Spieler einen Bonus. 


Szene 4 (Final Wave): 

Feindliche Raumschiffe und Geschosse müssen zerstört werden. 
Für die verbleibende Energie erhält der Spieler am Ende der 
Angrifswelle einen Bonus. 


Szene 5 (Bonus Round): 

Es müssen so viele feindliche Geschosse wie möglich eleminiert 
werden. Die Raumstation ist in dieser Runde unzerstörbar. 


Nach diesem Überblick ist es uns möglich, eine Liste aller 
benötigen Objekte aufzustellen: 


1. eine Raumstation 

2. vier Piratenschiffe (ein Schiff aus vier Perspektiven) 

3. eine Raumtorpedo (Geschoß) 


Weiterhin soll die Anzahl der verbleibenden Stationen mit je 
einer Flagge gekennzeichnet werden und durch die ASCII-Zei- 
chen 48 bis 122 eine futuristische Gestalt bekommen. Die 
Umdefinition dieser Fülle von Charaktern realisiert der Benutzer 
am besten mit dem im Kapitel 3.4 vorgestellten Zeichen-Editor. 
Er ist so konzipiert, daß er den umdefinierten Zeichensatz in 
Form von SYMBOL-Zeilen in einem automatisch generierten 
BASIC-Programm auf Diskette ablegt. Diese Daten können dann 
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im nächsten Arbeitsschritt mittels MERGE-Befehl problemlos 
mit dem Hauptprogramm verbunden werden. 
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7 6 5 4 3 2 1 0 



76543210 76543210 76543210 


Abb 6; Feindliches Raumschiff und Mine 


Nach der Definition aller im Spiel vorkommenden Objekte gilt 
es nun, ein oder mehrere zum Spiel passende Hintergrundgrafi¬ 
ken zu gestalten. Diese Grafiken können kompliziert oder ein¬ 
fach gestaltet werden. Wir empfehlen für das Erstellen aufwen¬ 
diger Hintergrundbilder einen Grafik-Editor zu verwenden, da 
er die Zeit, die zum Erstellen eines Bildes notwendig ist, um ein 
Vielfaches reduziert. Derartige Grafik-Editoren (Malprogramme) 
sind im Handel erhältlich und oft schon für weniger als DM 
100.- zu erwerben. Alternativ können Sie natürlich auch den 
Grafik-Editor selbst entwickeln. Als Grundlage dazu kann das 
in Kapitel 2.5 beschriebende Zeichenprogramm dienen. Sind alle 
benötigten Hintergundgrafiken erstellt, können sie im Spielpro¬ 
gramm mit dem LOAD-Befehl jederzeit in den Bildschirmspei¬ 
cher geladen werden. 

Einfach gestaltete Bilder können direkt vom Spielprogramm aus 
generiert werden. Unser Weltraumspiel plottet beispielsweise mit 
der Zeile 


1500 FOR i=1 TO 100:PLOT(RND<1)*639),(RND(1)*399),3:NEXT 
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hundert weiße Punkte, die Sterne symbolisieren sollen, mit Hilfe 
der Zufailsfunktion RND auf dem Bildschirm. Danach wird der 
Bildschirm mit 

SCORE (Punktzahl) 

BEST (beste Punktzahl) und 

WAVE (Angriffswelle) 


beschriftet. Weiterhin wird mit der Zeile 


1770 FOR EN=221 TO 421 STEP 4:M0VE EN,400:DRAW EN,384,2:NEXT 


ein Energieanzeiger, der aus mehreren hintereinander angeord¬ 
neten Strichen besteht, in den oberen Teil des Bildschirms 
gebracht. 

X UP QQöUBß iilili!l!|!!l!!!!!!!l!!!ill!lilllilil!illl!l!illil BEST □□□□□□ 



LEVEL X 


Hardcopy 4: Spielsituation 
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3.7.3 Animation 

Die fertig definierten und im Spielprogramm implementierten 
Zeichen müssen jetzt per Programm auf dem Bildschirm ani¬ 
miert werden. Die von uns verwendete Routine löst dieses Pro¬ 
blem mit einer einfachen Methode: Alle Objekte werden in einer 
Hauptschleife, deren Laufvariable den zu ändernden Positions¬ 
wert enthält, bewegt. Sie werden dabei grundsätzlich mit einem 
nachstehenden Leerzeichen (Space) auf dem Bildschirm gebracht. 
Wird nun das Objekt im nächsten Schleifendurchlauf ein Zei¬ 
chen weiter bewegt, wird automatisch das Objekt oder letzte 
Zeichen des Objekts durch das der Zeichenkette folgende Leer¬ 
zeichen überschrieben. 

Die Laserstrahlen, mit denen der Spieler auf die feindlichen 
Objekte schießen kann, sind nichts weiteres als vier DRAW- 
Funktionen, von denen jeweils eine aufgerufen werden kann. Da 
die Linie mit einem PEN, dem zwei INK-Parameter zugeordnet 
sind, gezeichnet wird, entsteht der Eindruck eines fluoreszieren¬ 
den Strahls. 


DESTRDVpn 


/ 


/ 


/ 


/ 


BE5TRUUEB 15 MR ITTER 1RBB BV AST & TflU 


Hardcopy 5: Titelbild 
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BE5TRDVED 


UDUR MISS VOM IS TD BE5TRDV HL I EMS 

GDDD LUCH! 


MIME: e 50 PT5 
ALLEM SHIP: PT5 
EXTRA BUSE: f* EHBBC PTS 


PRESS HHV HEV TD 1HSERT CD IM 


Hardcopy 6: Score-Table 


Damit Ihnen das Abtippen des sehr umfangreichen Listings 
etwas leichter fällt, dokumentieren die oben aufgeführten 
Hardcopies einige Szenen des Spielverlaufs. Hardcopy 5 zeigt 
wie zu Anfang des Spiels der Titel mit einem "Turbo-Laser” in 
eine "Titan-Platte" eingebrannt wird. Ist der Schriftzug auf diese 
Weise vollendet, wird er an das obere Ende des Bildschirms 
gescrollt, und der auf Hardcopy 6 dargestellte Score-Table 
aufgebaut. 

Sowohl während des Titelaufbaus (Hardcopy 5) als auch beim 
Erstellen des Score-Tables (Hardcopy 6) kann jederzeit durch 
das Drücken einer beliebigen Taste mit dem Spiel begonnen 
werden. 
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100 MODE 1 

110 BORDER 0:SPEED KEY 255,255 

120 DEF1NT A-Z:DIM KN(3,5),HI!<9>,INI$<9) 

130 FOR 1=0 TO 9:Hl! CI >=1000: INI5(I )= ,, XXX ,I :NEXT 
140 RANDOMI2E TIME 

150 UV$(0)="DESTRUCTION WAVE II :WV$(1)= ,, MISSIIE UAVE" :WV$(2)=''SURVIVAL WAV 
E":WV$(3)="FINAL WAVE":UV$(4)="BONUS ROUND“ 

160 ' 

170 'DATAS IN ARRAYS 
180 1 

190 FOR 1=0 TO 3:FOR J=0 TO 5:READ X:KN(I,J)=X:NEXT:NEXT 
200 1 

210 SYMBOL AFTER 48 

220 SYMBOL 48,254,206,206,214,230,230,254,0 
230 SYMBOL 49,56,24,24,24,126,126,126,0 
240 SYMBOL 50,254,6.6,254,192,192,254,0 
250 SYMBOL 51,124,12,12,126,14,14,254,0 
260 SYMBOL 52,224,224,224,236,238,254,14,0 
270 SYMBOL 53,254,192,192,254,14,14,254,0 
280 SYMBOL 54,248,216,192,254,206,206,254,0 
290 SYMBOL 55,254,6,6,62,56,56,56,0 
300 SYMBOL 56,252,204,204,254,206,206,254,0 
310 SYMBOL 57,254,198,198,254,14,14,14,0 
320 SYMBOL 65,126,102,102,254,230,230,230,0 
330 SYMBOL 66,252,204,204,254,206,206,254,0 
340 SYMBOL 67,254,206,206,192,198,198,254,0 
350 SYMBOL 68,252,204,204,238,238,238,254,0 
360 SYMBOL 69,254,192,192,254,224,224,254,0 
370 SYMBOL 70,254,192,192,254,224,224,224,0 
380 SYMBOL 71,254,198,192,222,206,206,254,0 
390 SYMBOL 72,198,198,198,254,206,206,206,0 
400 SYMBOL 73,24,24,24,28,28,28,28,0 
410 SYMBOL 74,12,12,12,14,14,110,126,0 
420 SYMBOL 75,204,216,216,254,206,206,206,0 
430 SYMBOL 76,48,48,48,112,112,112,126,0 
440 SYMBOL 77,206,254,254,238,206,206,206,0 
450 SYMBOL 78,206,238,254,222,206,206,206,0 
460 SYMBOL 79,254,198,198,206,206.206,254,0 
470 SYMBOL 80,254,198,198,254,224,224,224,0 
480 SYMBOL 81,252,204,204,204,206,222,254,0 
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490 SYMBOL 82,252,198,198,252,206,206,206,0 
500 SYMBOL 83,254,192,254,6,230,230,254.0 
510 SYMBOL 84,254,48,48,48,56,56,56,0 
520 SYMBOL 85,206,206,206,206,206,206,254,0 
530 SYMBOL 86,206,206,206,206,222,124,56,0 
540 SYMBOL 88,230,230,230,124,206,206,206,0 
550 SYMBOL 89,206,206,206,254,56,56,56,0 
560 SYMBOL 90,254,204,216,48,110,206,254,0 
570 ' 

580 SYMBOL 240,0,0,0,0,40,108,238,238 
590 SYMBOL 241,238,238,108,40,0,0,0,0 
600 SYMBOL 242,0,3,7,15,0,15,7,3 
610 SYMBOL 243,0,192,224,240,0,240,224,192 
620 SYMBOL 244,16,16,16,16,56,124,254,254 
630 SYMBOL 245,254,254,124,56,16,16,16,16 
640 SYMBOL 246,0,3,7,15,255,15,7,3 
650 SYMBOL 247,0,192,224,240,255,240,224,192 
660 ■ 

670 SYMBOL 207,1,6,24,48,255,63,15,1 
680 SYMBOL 208,254,63,63,127,255,255,255,254 
690 SYMBOL 209,0,4,28,120,120,28,4,0 
700 ' 

710 SYMBOL 204,143,78,78,46,60,28,8,8 
720 SYMBOL 205,126,255,255,255,255,255,159,143 
730 SYMBOL 206,0,0,102,60,60,24,24,0 
740 1 

750 SYMBOL 201,8,8,28,60,46,78,78,143 
760 SYMBOL 202,143,159,255,255,255,255,255,126 
770 SYMBOL 203,0,24,24,60,60,102,0,0 
780 ' 

790 SYMBOL 210,128,96,24,12,255,252,240,128 
800 SYMBOL 211,127,252,252,254,255,255,255,127 
810 SYMBOL 212,0,32,56,30,30,56,32,0 
820 1 

830 SYMBOL 213,0,40,86,84,168,54,212,42 
840 SYMBOL 214,0,40,124,238,68,238,124,40 
850 ' 

860 SYMBOL 215,3,7,7,7,7,127,255.255 

870 SYMBOL 216,255,207,215,219,219,219,219,219 

880 SYMBOL 217,239,239,239,239,239,239,239,239 
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890 SYMBOL 218,255,243,235,219,219,219,219,219 
900 SYMBOL 219,192,224,224,224,224,254,255,255 
910 SYMBOL 220,255,255,128,191,223,224,255,255 
920 SYMBOL 221,219,219,27,235,243,3,255,255 
930 SYMBOL 222,239,239,199,199,199,199,199,1 
940 SYMBOL 223,219,219,216,215,207,192,255,255 
950 SYMBOL 224,255,255,1,253,251,7,255,255 
960 SYMBOL 225,255,255,255,255,0,255,255,255 
970 SYMBOL 226,254,252,252,129,0,129,252,252 
980 SYMBOL 227,40,238,198,131,16,131,198,238 
990 SYMBOL 228,255,127,127,3,0,3,127,127 
1000 SYMBOL 229,255,255,255,255,0,255,255,255 
1010 SYMBOL 230,255,255,255,224,223,191,128,255 
1020 SYMBOL 231,254,255,255,3,243,235,27,219 
1030 SYMBOL 232,40,1,199,199,199,199,199,239 
1040 SYMBOL 233,255,255,255,192,207,215,216,219 
1050 SYMBOL 200,96,120,126,126,78,64,64,64 
1060 SYMBOL 234,255,255,255,7,251,253,1,255 
1070 SYMBOL 235,255,255,127,7,7,7,7,3 
1080 SYMBOL 236,219,219,219,219,219,215,207,255 
1090 SYMBOL 237,239,239,239,239,239,239,239,239 
1100 SYMBOL 238,219,219,219,219,219,235,243,255 
1110 SYMBOL 239,255,255,254,224,224,224,224,192 
1120 1 
1130 1 INTRO 
1140 1 

1150 LBX=320: LBY=16 

1160 SPEED INK 4,4:INK 0,0:INK 1,24:INK 2,11,6:INK 3,13:PEN 3:CLS 
1170 LOCATE 1,25: PRINT» DESTROYED IS WRITTEN 1986 BY JST & TAV» 

1180 TAG 

1190 FOR Y=7 TO 1 STEP -1 
1200 FOR X=0 TO 72 

1210 IF TEST(X*2+16,Y*2)=3 TUEN LPX=X*8+32: LPY=Y*8+230:MOVE LBX,LBY:DRA 
g LPX+4,LPY-4,2:MOVE LBX,LBY:DRAU LPX+4,LPY-4,0:PLOT LPX,LPY,1:PRINT CHR 
$(129); 

1220 IF INKEYS<>"" THEN 1430 
1230 HEXT X 
1240 NEXT Y 

1250 INK 1,6,11:FOR 1=1 TO 3000:NEXT 
1260 TAGOFF 
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1270 LOCATE 1,25:PR1NT SPACE$(40) 

1280 FOR 1=1 TO 5:PRINT:NEXT 
1290 INK 3,24:PEN 3 

1300 LOCATE 4,10:PRINT»YOUR MISSION IS T0 DESTROY ALI ENS,": LOCATE 23,12: 
PRINT"GOOD LUCK!" 

1310 LOCATE 7,17:PRINT ,I MINE:" 

1320 LOCATE 7,19:PRINT"AL1EN SHIP:' 1 
1330 LOCATE 7,21:PRINT"EXTRA BASE:" 

1340 INK 2,13:PEN 2:F0R 1=40 TO 20 STEP-1:LOCATE I,17:PRINT CHR$(214);" 

:F0R J=1 TO 300:NEXT:NEXT:PEN 3:PRINT" 50 PTS“ 

1350 FOR 1=38 TO 19 STEP-1:LOCATE I,19:PEN 3:PRINT CHR$(207);CHR$(208>;: 
PEN 1:PRINT CHR$<209);" ",-:FOR J=1 TO 300:NEXT:NEXT:PEN 3:PRINT" 100 PT 
S» 

1360 INK 2,13:PEN 2:FOR 1=40 T0 20 STEP-1:L0CATE I,21:PRINT CHR$(200);» 
";:FOR J=1 TO 300:NEXT:NEXT:PEN 3:PRINT« 20000 PTS" 

1370 PEN 2:LOCATE 6,25:PRINT"PRESS ANY KEY TO INSERT COIN"; 

1380 FOR 1=1 TO 15000:IF INKEY$="" THEN NEXT ELSE 1430 

1390 CLS:INK 2,6:LOCATE 13,1:PRINT»ALL TIME HEROS:":INK 3,1 

1400 INK 1,18,24:SPEED INK 15,15:FOR 1=0 TO 9:L0CATE 11,5+I*2:PRINT USIN 

G"##»;1+1;:PR INT". ";:PEN 1:PRINT USING"######";HI!(I);:PEN 3:PRINT SP 

C(3);INI$(I>:PEN 2:NEXT 

1410 FOR 1=1 TO 15000:IF INKEY$="" THEN NEXT ELSE 1430 
1420 CLS:GOTO 1160 
1430 * 

1440 TAGOFF:CLS:SPEED INK 4,4:INK 0,0:INK 1,24:INK 2,11,6:INK 3,13 
1450 • 

1460 LEVEL=0:OFS=-5:WAVE=-1:PP=1:BASE=3::FB=1:AS=0 
1470 ' 

1480 'STERNENHIMMEL 
1490 ' 

1500 FOR i=1 TO 100:PLOT(RND(1)*639),(RND(1)*399),3:NEXT 
1510 1 

1520 'ENERGIEZENTRUM 
1530 ' 

1540 PEN 2 

1550 LOCATE 20,11;PRINT CHR$(143> 

1560 LOCATE 20,12:PRINT CHR$(143) 

1570 LOCATE 18,13:PRINT STRING$(5,143) 

1580 LOCATE 20,14:PRINT CHR$(143) 

1590 LOCATE 20,15:PRINT CHR$(143) 
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1600 • 

1610 'STATION AUFBAUEN 
1620 • 

1630 PEN 1 

1640 PRINT CHR$(22);CHR${1) 

1650 S0=0:FOR i=1 TO 5:LOCATE 18,i+10:FOR j=215+S0 TO 219+S0:PRINT CHR$( 

J);:NEXT:S0=S0+5:NEXT 

1660 PRINT CHR$(22);CHR$(0) 

1670 LOCATE 17,13:PRINT CHR$<242); 

1680 LOCATE 23,13:PRINT CHR$(243>; 

1690 LOCATE 20,10:PRINT CHR$(244); 

1700 LOCATE 20,16:PRINT CHR$<241); 

1710 1 

1720 PEN 3:LOCATE 1,1:PRINT''1 UP 000000";SPC( 18);"BEST"; :LOCATE 35,1:SCO 
RE!=BEST!:GOSUB 2570:SCORE!=0:LOCATE 1,25:PRINT"LEVEL 1":LOCATE 39,25:PR 
INT STRING$(2,200);:PEN 1 
1730 1 

1740 'HAUPTSCHLEIFE 
1750 ' 

1760 LEVEL=LEVEL+1:PEN 3:L0CATE 6,25:PRINT LEVEL 

1770 FOR EN=221 TO 421 STEP 4:MOVE EN,400:DRAW EN,384,2:NEXT 

1780 0FS=0FS+5:IF OFS>20 THEN OFS=20 

1790 ' 

1800 SHPC=30+0FS:WAVE=WAVE+1:IF WAVE>4 THEN WAVE=-1:GOTO 1760 
1810 IF WAVE=4 THEN I=EN:FOR 1=EN TO 220 STEP-1:MOVE I,400:DRAW 1,384,0 
:NEXT:EN=(EN-220)*10:TEXT$="FUEL BONUS ="+STR$(EN):GOSUB 2540:SCORE!=SCO 
REI+EN:GOSUB 2550:INK 1,0 ELSE INK 1,24 

1820 IF WAVE=3 THEN IF SUR=1 THEN TEXT$="SURVIVAL POINTS =»+STR$(SHPC*50 
):GOSUB 2540:SCORE!=SCORE!+SHPC*50:GOSUB 2550 ELSE TEXT$="SORRY, NO BONU 
S":GOSUB 2540 

1830 IF WAVE=2 THEN INK 0,1:BORDER 1 ELSE INK 0,0:BORDER 0:SUR=1 
1840 TEXT$=WV$(UAVE):GOSUB 2540 
1850 ' 

1860 GOSUB 2280 

1870 IF OX<17 OR OX>23 OR OY<10 OR OY>16 THEN 1930 

1880 IF UAVE=4 THEN AS=KNX+1:PP=0:G0T0 2100 

1890 BASE=BASE-1:SUR=SUR-1:IF BASE<>0 THEN GOSUB 2580 

1900 INK 0,27,0:FOR i=1 TO 1000:NEXT:IF WAVE=2 THEN INK 0,1 ELSE INK 0,0 

1910 GOSUB 2550:IF BASE=0 THEN 2590 ELSE TEXT$="GET READY!":GOSUB 2540:K 

NX=AS-1:IF KNX>3 THEN KNX=KNX-4 
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1920 GOTO 2100 
1930 Y$=INKEYS 

1940 IF Y$=CHR$(32) THEN 2030 

1950 IF yS<CHR$(240) OR Y$>CHR$<243) THEN 1860 

1960 ' 

1970 'KANONE SETZEN 
1980 ' 

1990 LOCATE KN(KNX,0),KN(KNX,1):PRINT CHR$(KNX+240); 

2000 KNX=ASC(Y$)-240 

2010 LOCATE KN(KNX,0),KN(KNX,1):PRINT CHR$(KNX+244); 

2020 GOTO 1860 
2030 ' 

2040 'SCHUSS 
2050 ' 

2060 SOUND 1,4000,40,11,5,3,7 
2070 IF WAVE=4 THEN 2090 

2080 EN=EN-1:MOVE EN,400:DRAU EN,384,0:IF EN-220<0 THEN 2590 

2090 HOVE KN(KNX,2),KNCKNX,3):DRAW KN(KNX,4),KN(KNX,5),2:FOR 1=1 TO 20:N 

EXT:DRAW KN(KNX,2),KN(KNX,3),0 

2100 IF KNX+1=AS THEN LOCATE OX,OY:PEN 2:PRINT CHR$(213>;:G0SUB 2190:LOC 
ATE OX,OY:PRINT" ■>;: IF PP THEN SCORE!=SCORE!+50:GOTO 2170 ELSE 2180 
2110 IF KNX+5<>AS THEN 1860 ELSE LOCATE OX,OY:PEN 2 

2120 IF AS=5 THEN PRINT CHR$(213);CHRS(11>;CHR$(8);CHR$<213);CHR$(11);CH 
R$(8); :GOSUB 2190:PRINT '• ’';CHR$(10);CHR$(8);" ";CHRS(10);CHR$(8);'' 

2130 IF AS=6 THEN PRINT CHR$(213);CHR$(10);CHR$(8);CHR$<213);CHR$<10);CH 
R$(8>; :GOSUB 2190:PRINT " ";CHR$(11);CHRS<8);" '';CHR$(11);CHR$(8);'' 

2140 IF AS=7 THEN PRINT CHR$(8);CHR$(213);CHR$<213);:GOSUB 2190:PRINT ST 
RING$(3,8);STRING$(3,32); 

2150 IF AS=8 THEN PRINT CHR$(213);CHR$(213);:GOSUB 2190;PRINT STRING$(2, 
8);STRING$(3,32); 

2160 SCORE!=SCORE1+100 ELSE 2180 
2170 GOSUB 2550 

2180 PEN 1:AS=0:PP=1:SHPC=SHPC-1:IF SHPC=0 THEN 1800 ELSE 1860 
2190 FOR 1=1 TO 100:NEXT:RETURN 
2200 ' 

2210 'DATAS MIT POSITIONSANGABEN 

2220 ' 

2230 DATA 20,10,310,255,310,399 
2240 DATA 20,16,310,143,310,0 
2250 DATA 17,13,256,198,0,198 
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2260 DATA 23,13,368,198,639,198 
2270 * 

2280 IF AS<>0 THEN 2410 

2290 AS=INT(RND(1)*4)+1 

2300 IF WAVE=1 OR WAVE=4 THEN 2330 

2310 IF UAVE=0 THEM AS=AS+4:G0T0 2330 

2320 AS=INT(RND(1)*8)+1 

2330 IF AS=3 THEM AX=1:AY=13 

2340 IF AS=4 THEM AX=40:AY=13 

2350 IF AS=1 THEM AX=20:AY=2 

2360 IF AS=2 THEN AX=20:AY=25 

2370 IF AS=7 THEN AX=1:AY=13 

2380 IF AS=8 THEM AX=38:AY=13 

2390 IF AS=5 THEN AX=20:AY=3 

2400 IF AS=6 THEN AX=20:AY=22 

2410 LOCATE AX,AY 

2420 IF AS=3 THEN:PEN 3:PRINT" ";CHR$<214);:AX=AX+1:OX=AX:0Y=AY 

2430 IF AS=4 THEM:PEN 3:OX=AX:OY=AY:PRINT CHR8(214); H ";:AX=AX-1 

2440 IF AS=1 THEN PEN 3:PRINT“ ";:AY=AY+1:LOCATE AX,AY:PRINT CHR$(214);: 

OX=AX:OY=AY 

2450 IF AS=2 THEN PEN 3:PRINT" :AY=AY-1:LOCATE AX,AY:PRINT CHR$(214);: 
OX=AX:OY=AY 

2460 IF AS=7 THEM PEN 2:PRINT" ";CHR$(212);:PEN 1:PRINT CHR$(211>;CHR$(2 
10);:AX=AX+1:OX=AX+2:OY=AY 

2470 IF AS=8 THEN OX=AX:OY=AY:PRINT CHR${207);CHR$(208);:PEN 2:PRINT CHR 
8(209);" ";:AX=AX-1 

2480 IF AS=5 THEM PEN 2:PRINT" ";:LOCATE AX.AY+1:PRINT CHR$(206>;:PEN 1: 
LOCATE AX,AY+2:PRINT CHR$(205);:LOCATE AX,AY+3:PRINT CHRSC204);:AY=AY+1: 
OX-AX:OY=AY+2 

2490 IF AS=6 THEN PRINT CHR$(201);:LOCATE AX,AY+1:PRINT CHR${202);:LOCAT 
E AX,AY+2:PEN 2:PRINT CHR*(203);:PEN 1:LOCATE AX,AY+3:PRINT" ";:OX=AX:OY 
«AY:AY=AY-1 
2500 ' 

2510 IF WAVE<>4 THEN FOR 1=1 TO 200-OFS*10:NEXT 
2520 PEN 1 
2530 RETURN 

2540 INK 2,6:PEN 2:I=LEN(TEXT$):LOCATE 21-1/2,7:PRINT TEXT$;:F0R J=1 TO 
4000:NEXT:LOCATE 21 -I/2,7:PRINT SPC(I);:INK 2,11,6:PEN 1:RETURN 
2550 IF FB AND SCORE!>20000 THEN BASE=BASE+1:FB=0:GOSUB 2580 
2560 LOCATE 6,1 
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2570 PEN 3:SCR$=STR$<SCORE!):LNS=LEN(SCR$)-1:SCR$=RIGHT$(SCR$,LNS>:PRINT 
STRING$<6-LNS,48);SCR$;:RETURN 

2580 PEN 3:TEXT$= n »+STRING$(BASE-1,200>:LOCATE 41-L£N<TEXT$),25:PRINT T 
EXTS;:PEN IjRETURN 

2590 IF SCORE!>BEST! THEN BEST!=SCORE!:LOCATE 35,1:GOSUB 2570 
2600 TEXT$="GAME OVER":GOSUB 2540 

2610 IF SCORE!> HI!(9) THEN CLS:LOCATE 1,10:INK 2,6:INK 3,18:INK 0,0:BO 
RDER 0:PEN 2:PRINT"CONGRATIULATIONS!":PRINT:PEN 3:PRINT"Y0U ARE ONE OF T 
HE TEN BEST PLAYERS":PRINT»ENTER YOUR INITIALS:" ELSE GOTO 1150 
2620 TEXT$="":I=0:LOCATE 18,16 

2630 Y$=INKEY$;Y$=UPPER$(Y$):IF Y$<"A" OR Y$>"Z" THEN 2630 ELSE 1=1+1:PE 
N I:PRINT Y$;:TEXT$=TEXT$+Y$ 

2640 IF I<>3 THEN 2630 ELSE FOR 1=0 TO 9:IF SCORE!>HI!(I) THEN FOR J=9 T 
O 1+1 STEP-1:Hl!(J)=HI!(J-1):INI$(J)=INI$(J-1):NEXT:HI!(I)=SCORE!:INI$(I 
)=TEXT$ ELSE NEXT 
2650 GOTO 1150 
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4. Abstrakte Kunst in BASIC 


Hatten Sie auch schon einmal das Vergnügen, Gäste zu haben, 
die sich hervorragend in der Rolle gefielen, Ihren Schneider- 
CPC schlecht zu machen? Oder können Sie nicht vollkommen 
ausschließen, einmal solche Gäste zu haben? Sie sollten 
jedenfalls wissen, daß diese Leute immer die Gretchenfrage 
nach der Grafikfähigkeit stellen und so den • Gastgeber richtig 
fordern. Mit drei PLOT- und zwei DRAW-Kommandos läßt 
sich nichts erzeugen, was den Kritikern die Argumente raubt - 
da müssen schon handfestere Grafiken erscheinen. Doch wie es 
so ist, in einer solchen Situation fällt auch dem sonst mit allen 
Wassern gewaschenen Programmierer nichts ein, was so recht 
beeindrucken kann und es setzt sich bei den ohnehin nicht 
objektiven Betrachtern schnell der Eindruck fest: Der CPC kann 
keine Grafik! 

Um einen derart jeder Basis entbehrenden Vorwurf in Zukunft 
mit einem Handstreich beiseite schieben zu können oder ganz 
einfach das letzte aus der Grafikmaschine CPC zu holen, was 
BASIC zu leisten vermag, haben wir dieses Kapitel eingefügt. Es 
soll eine ganze Reihe von Grafikprogrammen vorstellen, die ge¬ 
eignet sind, dem Betrachter ein erstauntes "Ahh" zu entlocken. 

Alle Programme sind ohne Erklärungen abgedruckt und können 
nach eigenem Ermessen beliebig erweitert oder modifiziert 
werden. Das Ergebnis, das sie in der abgedruckten Form auf 
dem Bildschirm liefern, ist jeweils in einer Hardcopy 
festgehalten. 

Einige der Programme benötigen zum Gewinnen der Grafik, die 
dann keiner Bewegung mehr unterliegt, oft beachtliche Re¬ 
chenzeit, so daß es sinnvoll ist, die statische Grafik auf Diskette 
zu speichern. Um dies zu erreichen, bedarf es nur der Anwei¬ 
sung 


SAVE "BILDINHAIT",B,&COOO,&A000 
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und die 16 KByte Bildschirmspeicher werden als Binärfile auf 
Diskette gerettet. Diese Anweisung sollte an der Stelle in den 
Programmfluß eingefügt werden, an der die Grafik fertig 
erstellt ist und durch das Programm keine Veränderung mehr 
erfährt. Auf diese Weise läßt sich auch eine Sammlung von 
Grafiken auf Diskette anlegen und für die nächste Betrachtung, 
ob mit oder ohne unliebsamen Besuch, konservieren. 

Eine auf diese Weise gesicherte Grafik läßt sich jederzeit mit 
der Anweisung 


LOAD “BILDINHALT.BIN” 


wieder auf den Bildschirm holen. Durch Zusammenfügen mehrer 
LOAD-Kommandos kann auch leicht eine Grafikdemo geschrie¬ 
ben werden, die im fortwährenden Wechsel die Grafikfähigkei¬ 
ten des CPC vorführt. Als Besitzer eines 6128 können Sie diesen 
Effekt durch die einfache Möglichkeit mit mehreren Bild¬ 
schirmseiten arbeiten zu können (BANKMAN), noch verstärken. 
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4.1 "Störe meine Kreise nicht!" 

•| QQ I********************************************************* 


-JT0 I*** *** 

120 '*** J, STOERE HEINE KREISE NICHT!" *** 
130 '*** ABSTRAKTE KUNST IN BASIC *** 
140 **** *** 
150 '*** JST/TAV 2.8.1986 *** 
160 1 *** , *** 


170 1 ********************************************************* 
180 ■ 

190 MODE 1 
200 BORDER 0 
210 INK 0,0 
220 INK 1,26 
230 • 

240 DEG 
250 • 

260 'ZUFALLSWERTE FUER MITTELPUNKT UND RADIUS BESTIMMEN 
270 1 

280 XP%=INT(RND(1)*640) 

290 YP%=INT(RND(1)*400) 

300 D% =INT(RND(1)*50> 

310 1 

320 'KANN DER AKTUELLE KREIS VOLLSTAENDIG DARGESTELLT WERDEN? 
330 ' 

340 IF XP%+D%>639 THEN 280 

350 IF YP%+D%>399 THEN 280 

360 IF XP%-DX< 0 THEN 280 

370 IF YP%-D%< 0 THEN 280 

380 1 

390 'ERSTE KOORDINATEN 

400 1 

410 J%=0 

420 GOSUB 690 

430 1 

440 X1%=X2% 

450 Y1%=Y2% 

460 ' 
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470 ‘WEITERE KOORDINATEN 
480 ■ 

490 FOR J%=0 TO 15 
500 GOSUB 690 
510 • 

520 'KREIS ZEICHEN 
530 ' 

540 MOVE XP%+X1%,YP%+Y1% 

550 DRAW XP%+X2%,YP%+Y2% 

560 MOVE XP%+X1X,YP%-Y1%+1 
570 DRAW XP%+X2%,YP%-Y2%+1 
580 MOVE XPX-X1X+1,YPX-Y1%+1 
590 DRAW XP%-X2%+1,YP%-Y2%+1 
600 MOVE XP%-X1%+1,YP%+Yl% 

610 DRAW XP%-X2%+1,YP%+Y2% 

620 ' 

630 X1%=X2% 

640 Y1X=Y2% 

650 ' 

660 NEXT 
670 * 

680 GOTO 280 
690 ' 

700 'KOORDINATEN BERECHNEN 
710 • 

720 X2%=INT(COS(J%*6)*D%+0.5> 
730 Y2X=INT(SIN(J%*6)*DX+0.5 > 
740 ' 

750 RETURN 
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4.2 Horn 

100 1 ********************************************************* 
no i*** *** 

120 <*** KORN - ABSTRAKTE KUNST IN BASIC JST 21.6.1986 *** 
130 '*** *** 

140 i********************************************************* 

150 * 

160 MODE 1 
170 ' 

180 BORDER 0 
190 INK 0,0 
200 INK 1,26 
210 • 

220 FOR I%=0 TO 3000 
230 • 

240 A=I%*PI/3000 

250 B=120*(0.5+COS<A)/2) 

260 C=A*2 
270 D=C*150 
280 E=B*COS(D) 

290 F=B*SIN<D) 

300 G=240+120*SIN(C)+F 
310 X%=INT(1.3*G) 

320 Y%=INT(240+120*COS(C)+E) 

330 Y%=Y%-50 
340 ■ 

350 IF I%=0 THEN MOVE X%,Y% 

360 IF I%>0 THEN DRAW X%,Y% 

370 ■ 

380 NEXT 1% 

390 ' 

400 GOTO 400 


151 


Abstrakte Kunst in BASIC 








152 


Das eroße Grafikbuch zum CPC 


4.3 Wave 

1oo i ********************************************************* 
1 -j 0 '*** *** 

120 '*** WAVE ■ ABSTRAKTE KUNST IN BASIC JST 21.6.1986 *** 
130 '*** *** 

140 1 ********************************************************* 
150 ' 

160 MODE 1 
170 1 

180 BORDER 0 
190 INK 0,0 
200 INK 1,26 
210 ' 

220 FOR I%=0 TO 20 
230 FOR J%=0 TO 55 
240 * 

250 X=I%/20-1 
260 Y=J%/20-1 
270 D=SQR(X*X+Y*Y) 

280 IF X<>0 THEN A=ATN<Y/X> 

290 IF X=0 THEN A=PI/2*SGN(Y> 

300 IF X<0 THEN A=A+PI 

310 IF D<1 THEN A=A+PI*2*{1-D) 

320 B=D*SIN(A> 

330 C=D*C0S(A) 

340 E=1+0.95*B 
350 F=1+0.95*C 
360 X%=INT(449/2*E) 

370 X%=X%+15 
380 Y%=INT(449/2*F) 

390 IF J%=0 THEN MOVE X%,Y% 

400 IF J%>0 THEN DRAW X%,Y% 

410 ' 

420 NEXT J% 

430 NEXT 1% 

440 1 

450 GOTO 450 



53 
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4.3 Tiefe 

i00 t ************************************************ ********* 

HO i*** *** 

120 '*** TIEFE ■ ABSTRAKTE KUNST IN BASIC JST 21.6.1986 *** 

130 i*** *** 

140 1 ********************************************************* 
150 ' 

160 MODE 1 
170 1 

180 INK 0,0 
190 INK 1,26 
200 BORDER 0 
210 1 
220 A=0 
230 B=600 
240 • 

250 FOR i=0 TO 300 
260 1 

270 X=X+B*COS(A) 

280 Y=Y+B*SIN(A) 

290 X%=INT(X) 

300 Y%=INT(Y) 

310 1 

320 IF 1=0 THEN MOVE X%,Y% 

330 IF 1>0 THEN DRAU X%,Y% 

340 ' 

350 A=A+1.52 
360 B=B*0.98 
370 1 

380 NEXT I 
390 ' 

400 GOTO 400 
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4.5 Gridrunner 


1QO I ********************************************************* 


110 



*** 

120 


GRIDRUNNER 

*** 

130 

»*** 

TAV 20.10.1986 

*** 

140 

1 


*** 


^50 i********************************************************* 
160 ' 

170 1 

180 MODE 0 
190 BORDER 0 
200 INK 0,0 
210 INK 1,9 
220 FOR 1=2 TO 15 
230 INK 1,0 
240 NEXT 

250 FOR 1=2 TO 15 
260 J=196-1*2 
270 FOR K=1 TO 3 
280 MOVE 0,J,I 
290 DRAU 639,J,I 
300 J=J-28*K-(I*2-4)*K 
310 NEXT 
320 NEXT 

330 FOR I=-10000 TO 10000 STEP 160 
340 HOVE 320,200 
350 DRAU 1,0,1 
360 NEXT 

370 FOR 1=2 TO 15 
380 INK 1,9 
390 CALL &BD19 
400 INK 1,0 
410 NEXT 
420 GOTO 370 
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5. Ein Bild sagt mehr als tausend Worte - 
Geschäftsgrafiken 


Versuchen Sie sich einmal in die Lage eines Konzernchefs zu 
versetzen, der seinen Filialleitern klar machen muß, daß das 
Unternehmen nicht mehr genug Umsatz erwirtschaftet und des¬ 
halb größere Anstrengungen gemacht werden müssen, die 
Umsatzzahlen wieder in die Höhe zu schrauben. Zum Zwecke 
dieser Mitteilung hat er alle Filialleiter zu einer Konferenz zu¬ 
sammengerufen. Nun sitzen die Herren alle in Erwartung großer 
Ereignisse beisammen, und der Konzernchef beginnt seinen 
Vortrag über die Umsatzlage des Unternehmens. Nach einer ein¬ 
dringlichen Vorrede kommt ef zu den Fakten: "Im Jahre 1975 
erreichten wir ein Umsatzvolumen von 13,53 Milliarden Mark, 
1976 waren es 3,4 Milliarden mehr und 1977 wurde schließlich 
ein Umsatz von nahezu 19 Milliarden Mark..." 

Die Rede setzt sich noch über einige Zeit fort, doch spätestens 
an dieser Stelle hat auch der wohlwollende Zuhörer gänzlich die 
Übersicht verloren und schweift mit seinen Gedanken zu fernen 
Zielen. 

Sicher kann es nicht im Sinne eines guten Geschäftsmannes sein, 
daß es unmöglich ist, seinen Ausführungen über Umsatzzahlen 
zu folgen. Doch welche Alternative hat unser Konzernchef? Im 
Grunde bieten sich ihm mehrere Möglichkeiten, und eine davon 
liegt geradezu auf der Hand, oder genauer gesagt, vor ihm auf 
dem Tisch. Da er natürlich auch nicht mehr die Umsätze im 
Kopf hat, die Jahre zurückliegen, hat er diese Zahlen in Form 
einer Tabelle von der Buchhaltungsabteilung zusammenstellen 
lassen. 


Diese Tabelle vervielfältigt und an die Zuhörer verteilt könnte 
dem Konzernchef viele Worte ersparen und würde die 
Übersichtlichkeit der zahlreichen Daten erhöhen. Jedem Zuhörer 
wäre es möglich, sich unmittelbar über die Ertragslage eines 
bestimmten Jahres zu orientieren, und der Vortrag könnte sich 
auf Trends und Tendenzen beschränken. 
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Auch diese tabellarische Form, Zahlen dazustellen, hat einige 
Nachteile. Zahlen sind etwas Abstraktes, und aus diesem Grunde 
kann man sie sich nur schwer vorstellen. Müssen dann auch 
noch viele Zahlen in Relation gebracht werden, so wird auch 
hier die Übersichtlichkeit sehr stark gemindert. 


Umsatzzahlen von 1975 bis 1985 


1975: 

13,53 

Mrd. 

DH 

1976: 

16,93 

Hrd. 

DH 

1977: 

18,97 

Mrd. 

DM 

1978: 

23,21 

Hrd. 

DM 

1979: 

27,47 

Hrd. 

DM 

1980: 

28,90 

Hrd. 

DM 

1981: 

31,23 

Hrd. 

DM 

1982: 

32,31 

Hrd. 

DH 

1983: 

32,98 

Hrd. 

DM 

1984: 

30,26 

Hrd. 

DH 

1985: 

27,45 

Hrd. 

DH 


Sicher, aus der oben stehenden Tabelle ist ersichtlich, daß die 
aufstrebende Umsatzlage des Unternehmens in den letzten bei¬ 
den Jahren rückläufig geworden ist, doch noch um einiges deut¬ 
licher wird dieser Tatbestand, wenn man die Tabelle in grafi¬ 
scher Form darstellt. Dazu kann beispielsweise für jedes der 
Jahre 1975 bis 1985 ein Balken gezeichnet werden, wobei die 
Länge des Balkens durch die Größe der Zahl bestimmt wird, die 
er repräsentiert. Abbildung 7 zeigt, wie die grafische Umsetzung 
der Erträge in einem Balkendiagramm aussehen kann. 
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Durch den Vergleich der Balken kann die Umsatzentwicklung 
unmittelbar abgelesen werden, und unser Konzernchef hat eine 
schlagkräftige Argumentationshilfe, mit der er auch den letzten 
Zweifler davon überzeugen kann, daß es nicht rosig um die Er¬ 
träge des Unternehmens bestellt ist. 

Es gibt noch einige andere Verfahren, Zahlenkolonnen in aus¬ 
sagekräftige Grafiken zu verwandeln, aber am Beispiel der 
Balkengrafik ist doch recht deutlich zu sehen, wieviel trans¬ 
parenter eine Grafik im Vergleich zu nackten Zahlen ist - dies 
gilt nicht unbedingt nur in der Geschäftswelt. 


5.1 Das Punktediagramm 

Als erste Darstellungform der Geschäftsgrafik wollen wir Ihnen 
das sogenannte Punktediagramm vorstellen, bei dem die Stellen, 
an denen sich die darzustellenden Werte befinden, durch Punkte 
bezeichnet werden. Dieses Diagramm haben wird aus dem 
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Grunde an den Anfang unserer Betrachtungen gestellt, weil bei 
ihm eine elementare Umsetzung des Zahlenmaterials in Grafik 
erfolgt, ohne zusätzliche Aufbereitung wie bei den später 
vorgestellten Diagrammformen. 

Der Aufbau eines Geschäftsdiagramms ist immer gleich - es 
besitzt zwei Achsen, die zueinander senkrecht stehen. Auf einer 
der Achsen befindet sich eine Skala, die anzeigt, woher das 
Zahlenmaterial stammt, auf der anderen eine Einteilung in 
Größenordungen. Die Einteilung der ersten Achse kann in Jahre, 
Monate, Filialen oder dergleichen erfolgen, die der zweiten 
Achse in Stückzahlen, Geldbeträge oder ähnlich. Das Zahlenma¬ 
terial, das dargestellt werden soll, bestimmt dabei die Form der 
Einteilung. Um nicht allzu theoretisch zu bleiben, wollen wir 
das Beispiel eines Privatmannes zur Hilfe nehmen, der sich 
einen Überblick über die Kilometerleistung seines Kraftfahrzeu¬ 
ges im Jahre 1985 machen will. Er hat zu diesem Zweck die 
zurückgelegten Kilometer für jeden einzelnen Monat in einer 
Tabelle zusammengestellt. 


Gefahrene Kilometer 1985 


Januar: 230 kn 
Februar: 310 km 
März: 390 km 
April: 450 km 
Mai: 560 km 

Juni: 920 km 
Juli: 1200 km 
August: 1170 km 
September: 830 km 
Oktober: 520 km 
November: 390 km 
Dezember: 250 km 


Um nun das zugrundeliegende Zahlenmaterial in ein Punktedia¬ 
gramm umzusetzen, müssen zunächst einmal die beiden ange¬ 
sprochenen Achsen eingeteilt werden. Die Einteilung der ersten 
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Achse erfolgt sinnvollerweise in die zwölf Monate des Jahres 
1985. Die zweite Achse ist in Kilometer einzuteilen, wobei als 
größter Einteilungspunkt die maximal pro Monat zurückgelegten 
Kilometer veranschlagt werden sollten - im Falle unseres Bei¬ 
spiels sind das 1200 km. Da sich alle darzustellenden Entfernun¬ 
gen in der Größenordung von einigen hundert Kilometern 
befinden, kann die Einteilung in lOOkm-Einheiten vorgenom¬ 
men werden. 

Ist das Diagramm soweit vorbereitet, ist das Einträgen der 
Punkte leicht gemacht. Aus der Tabelle kennen wir die Werte 
für die einzelnen Monate, so daß wir für jeden Monat die Stelle 
der Kilometerskala markieren können, an der sich der betref¬ 
fende Wert befindet. Diese Arbeit für alle Monate von Januar 
bis Dezember durchgeführt - und das Punktediagramm ist fertig. 
Damit es auch später noch von Nutzen sein kann, ist es sinnvoll, 
das Diagramm zu beschriften. Zur Beschriftung gehört sowohl 
eine Überschrift, die Mitteilung darüber macht, um was für ein 
Diagramm es sich handelt, als auch eine Beschriftung der beiden 
Achsen. 


Ifffl kn 


Gefahrene Kilometer 1985 



ll nrdcopy 7 : Punktediagramm 
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Das gerade abgedruckte Punktediagramm wurde mit einem Pro¬ 
gramm erstellt, das Ihnen jegliche Mühen beim Erstellen eines 
Diagramms abnimmt. Das einzige, was Sie brauchen ist, eine 
Tabelle mit Werten, die Sie in das Programm eingeben können. 
Achsen zeichnen, beschriften und die Umsetzung der Werte 
übernimmt das Programm. 

Nach dem Start des Programms wird der Benutzer danach 
befragt, welche Überschrift das Diagramm erhalten soll - in 
unserem Beispiel lautete die Überschrift: "Gefahrene Kilometer 
1985" -, und welche Bezeichnung der Werteskala vorgesehen ist. 
Sind diese Angaben gemacht, erfragt das Programm vom 
Benutzer die Zahlenwerte für die einzelnen darzustellenden 
Monate (die eingegebenen Werte dürfen nicht kleiner Null sein). 

Bevor das Programm mit dem Zeichnen des Diagramms beginnt, 
wird aus dem maximalen Wert eines Monats automatisch die 
Einteilung der Werteskala errechnet. Bei dieser automatischen 
Einteilung kann es schon einmal Vorkommen, daß sich recht 
"krumme" Werte ergeben, das läßt sich aber um den Preis der 
Automatisierung nicht verhindern. 

Nachdem das Programm die beiden Achsen und deren Eintei¬ 
lung, die sich in Form von Hilfslinien über das ganze Diagramm 
fortsetzen und eine bessere Lesbarkeit des Diagramms erwirken, 
gezeichnet hat, beginnt es mit dem Einträgen der Werte in das 
Diagramm. Dazu werden ganz einfach die Stellen, an denen sich 
die Werte der Monate befinden, durch ein Kreuz markiert. In 
der Mitte des Kreuzes befindet sich dann der betreffende Wert. 


100 MODE 2 
110 BORDER 0 
120 INK 0,0 

130 INK 1,11 

131 SYMBOL 255,0,65,34,20,8,20,34,65 
140 DIM MY(12) 

150 MA=0 
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160 • 

170 'PROGRAMMKOPF AUSGEBEN 
180 1 

190 LOCATE 1,3 

200 PRINT TAB(33);"PUNKTEDIAGRAMM" 

210 PRINT TAB(33);"JST 28.7.1986» 

220 MOVE 16,383 
230 DRAW 16,320 
240 DRAW 623,320 
250 DRAU 623,383 
260 DRAU 16,383 
270 * 

280 'BESCHRIFTUNGEN EINLESEN 
290 ' 

300 LOCATE 36,8 

310 PRINT"|.|" 

320 LOCATE 1,8 

330 1NPUT"UEBERSCHRIFT (MAX. 40 BUCHSTABEN)";UE$ 

340 LOCATE 36,10 

350 PRINT"|.|" 

360 LOCATE 1,10 

370 INPUT»WERTESKALA (MAX. 10 BUCHSTABEN)»,-UE$ 

380 ' 

390 'EINLESEN DER EINZELNEN WERTE UND MAXIMALWERT ERMITTELN 
400 ■ 

410 PRINT 

420 PRINT"GEBEN SIE JETZT DIE UERTE FUER DIE EINZELNEN MONATE EIN! 

ii 

430 PRINT 
440 • 

450 FOR 1=1 TO 12 
460 READ MONATS 

470 PRINT USING »\ \»;MONAT$; 

480 INPUT MY(I) 

490 IF MA<MY(I) THEN MA=MY(I) 

500 NEXT I 
510 ' 

520 CLS 
530 ' 
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540 'POSITION FUER BESCHRIFTUNG ERMITTELN 
550 ' 

560 T1=LEN(UES> 

570 T2=LEN(UE$) 

580 PU=40-(TI/2) 

590 PU=6-(T2/2) 

600 ' 

610 'BESCHRIFTUNG AUSGEBEN 
620 ' 

630 LOCATE 69,20 
640 PRINT ''MONATE 1 ' 

650 LOCATE PU,1 
660 PRINT UES 
670 LOCATE PW,9 
680 PRINT WE$ 

690 ' 

700 'KOORDINATENSYSTEM ZEICHNEN 
710 ' 

720 MOVE 163,375 
730 DRAU 163,112 
740 DRAU 530,112 
750 ' 

760 'SKALIERUNG DER X-ACHSE 
770 ' 

780 FOR X=163 TO 515 STEP 32 
790 MOVE X,100 
800 DRAU X,375 
810 NEXT X 
820 ' 

830 'BESCHRIFTUNG DER X-ACHSE 
840 ' 

850 FOR MY=1 TO 3 
860 MY1=MY+19 
870 RESTORE 
880 FOR M=1 TO 12 
890 MX=M*4+17 
900 READ MONATS 

910 MONAT$=RIGHT$(LEFT$(MONATS,MY),1) 

920 LOCATE MX,MY1 
930 PRINT MONATS 
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940 NEXT M 
950 NEXT NY 
960 ' 

970 'SKALIERUNG DER Y-ACHSE 
980 1 

990 FOR Y=362 TO 112 STEP -25 

1000 MOVE 155,Y 

1010 DRAU 530,Y 

1020 NEXT Y 

1030 ' 

1040 'BESCHRIFTUNG OER Y-ACHSE 
1050 ' 

1060 IF INT(MA)oMA THEN MA=1NT(MA)+1 
1070 IF INT(MA/2)<>MA/2 THEN MA=MA+1 
1080 * 

1090 TAG 
1100 ' 

1110 FOR 1=0 TO 10 
1120 PY=25*I+117 
1130 MOVE 95,PY 

1140 PRINT USING '■#####.#'■;HA/10*1; 

1150 NEXT I 
1160 • 

1170 'PUNKTE SETZEN 
1180 ' 

1190 F=131 

1200 FOR 1=1 TO 12 

1210 MY=((MY(I)/MA)*250)+112 

1220 F=F+32 

1240 MY=HY+8 

1280 HOVE F-4,MY 

1290 PRINT CHR$(255); 

1300 NEXT I 
1310 • 

1320 GOTO 1320 
1330 ' 

1340 'DATAS HIT MONATSNAMEN 
1350 ' 

1360 DATA JANUAR,FEBRUAR,MAERZ,APRIL,MAI,JUNI 

1370 DATA JULI,AUGUST,SEPTEMBER,OKTOBER,NOVEMBER,DEZEMBER 



170 


Das eroße Grafikbuch zum CPC 


Programmbeschreibung : 

100-150 Definitionen, Dimensionierungen und Vorbele¬ 
gungen. MODE 2 und eine kontrastreiche Farb- 
kombination werden eingestellt. Unter der Zei¬ 
chennummer 255 wird ein neues Zeichen definiert, 
das das Aussehen eines Kreuzes hat, wie man es 
von Wahlzetteln kennt. Dieses Zeichen eignet sich 
besonders, um einen bestimmten Punkt zu markie¬ 
ren. Im Programm "Punktediagramm" soll es die 
Stellen kennzeichnen, an denen die Werte für die 
einzelnen Monate auf der Skala liegen. 

Die indizierte Variable MY wird auf 13 Elemente 
dimensioniert. Unter den Indizes 1 bis 12 sollen die 
Werte für die zwölf Monate gespeichert werden. 
Die Variabe MA, in der im Verlauf des Programms 
der Maximalwert für die Monate entstehen soll, 
wird mit 0 vorbelegt. 

160-260 Programmkopf ausgeben 

Der Name und die Eignerkennung des Programms 
werden auf dem Bildschirm ausgegeben und um¬ 
randet. 

270-370 Beschriftungen einiesen 

Überschrift und Beschriftung der Werteskala des 
zu erzeugenden Diagramms werden mit der 

INPUT-Funktion eingelesen. Der für die Eingaben 
zur Verfügung stehende Platz wird auf dem Bild¬ 
schirm gekennzeichnet. Bei Eingaben, die den ge¬ 
kennzeichneten Raum überschreiten, findet keine 
Korrektur statt. 

380-520 Einlesen der einzelnen Werte und Maximalwert 

ermitteln 

Nach der Meldung, daß nun die Werte für die 
darzustellenden Monate eingegeben werden sollen, 
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beginnt das Programm mit der Abarbeitung einer 
FOR-TO-NEXT-Schleife. Innerhalb dieser 
Schleife, die genau 12mal durchlaufen wird, wer¬ 
den Eingaben für die einzelnen Monate vom Be¬ 
nutzer erfragt. Hierzu wird bei jedem Schleifen¬ 
durchlauf der Inhalt von MONATS mit einem der 
Monatsnamen gefüllt, die im DATA-Block am 
Ende des Programms stehen. 

Nach der Ausgabe des Monatsnamen mit einem für 
alle Monate einheitlichen Format wird der Wert 
erwartet, der für die grafische Darstellung des be¬ 
treffenden Monats zugrunde gelegt werden soll. In 
Zeile 490 wird der aktuelle Inhalt von MY(I) mit 
dem von MA verglichen und, sollte MA den klei¬ 
neren Wert enthalten, zugewiesen. Nach dem 
Durchlauf der FOR-TO-NEXT-Schleife steht in 
MA der Maximalwert aller zwölf Monate. 

Nachdem alle Angaben gesammelt sind, wird der 
Bildschirm für das Erstellen des Diagramms ge¬ 
löscht. 

530-590 Position fuer Beschriftung ermitteln 

Die Länge der Überschrift und der Beschriftung 
der Werteskala werden mit der Funktion LEN er¬ 
mittelt und den Variablen TI und T2 zugewiesen. 
Der durch 2 dividierte Inhalt dieser Variablen wird 
jeweils von der X-Position subtrahiert, die später 
genau in der Mitte der Beschriftung liegen wird. 
Auf diese Weise kann auf die X-Position des Text¬ 
cursors geschlossen werden, an der mit der Ausga¬ 
be der Texte begonnen werden muß, um sie an der 
gewünschten Position zentriert erscheinen zu lassen. 
Die X-Koordinaten für den Start der Textausgaben 
befinden sich in den Variablen PU (Überschrift) 
und PW (Werteskala). 
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600-680 Beschriftung ausgeben 

Die Beschriftung für das Diagramm wird auf dem 
Bildschirm ausgegeben, wobei die errechneten Po¬ 
sitionen für die Textausgabe Verwendung finden. 

690-740 Koordinatensystem zeichnen 

Mit einem MOVE- und zwei DRAW-Kommandos 
wird das Koordinatensystem gezeichnet, in dem das 
Diagramm ruhen wird. 

750-810 Skalierung der X-Achse 

Nach dem Durchlauf dieses Programmteils ist das 
Koordinatensystem von der X-Achse aus durch 12 
senkrechte Linien aufgeteilt. Diese an den zwölf 
Monaten orientierte Unterteilung wird zur besseren 
Übersichtlichkeit des Diagramms durchgeführt. 

820-950 Beschriftung der X-Achse 

Innerhalb dieses Programmteils werden die ersten 
drei Buchstaben der Monatsnamen senkrecht un¬ 
tereinander an die für sie bestimmten Positionen 
der X-Achse geschrieben. Diese Aufgabe wird von 
zwei ineinander verschachtelten FOR-TO-NEXT- 
Schleifen gelöst. 

Die äußere Schleife hat genau drei Durchläufe, von 
denen jeder einen der drei Buchstaben der Mo¬ 
natsnamen behandelt. Aus der Index variablen die¬ 
ser Schleife (MY) wird in Zeile 860 die Y-Position 
für die Ausgabe der Buchstaben des aktuellen 
Schleifendurchlaufs ermittelt. Vor dem Eintritt in 
die innere FOR-TO-NEXT-Schleife wird der 
DATA-Zeiger zurückgesetzt und damit ein Ausle¬ 
sen der Monatsnamen bei jeden Schleifendurchlauf 
ermöglicht. 

Jeder der 12 Durchläufe der inneren Schleife han¬ 
delt einen Monat ab. Zunächst wird in der Schleife 
aus der Indexvariablen M die X-Koordinate für 
die Ausgabe des Buchstaben ermittelt und MX zu- 
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gewiesen. Damit steht die Position für die Textaus¬ 
gabe in den Variablen MX und MY1. Welcher 
Buchstabe auszugeben ist, wird in den Zeilen 900 
und 910 bestimmt. 

Aus dem Monatsnamen, der dem DATA-Block 
entnommen wird, isoliert die Programmzeile 910 
den entsprechenden Buchstaben. Dazu werden 
entsprechend der Indexvariablen • MY der erste, die 
ersten beiden oder die ersten drei Buchstaben des 
Monatsnamen abgetrennt (LEFT$(MONAT$,MY)) 
und der jeweils letzte für die Ausgabe bestimmt. 
Es erfolgt die Positionierung des Textcursors auf 
die ermittelte Stelle und die Ausgabe des isolierten 
Buchstaben, der sich in der Variablen MONATS 
befindet. 

960-1020 Skalierung der Y-Achse 

Nach dem Durchlauf dieses Programmteils ist das 
Koordinatensystem von der Y-Achse aus durch 11 
waagerechte Linien aufgeteilt. Die unterste Linie 
(X-Achse) steht für den Nullpunkt der Werteskala. 
Alle weiteren Unterteilungen dienen zur besseren 
Zuordnungsmöglichkeit der Angaben der Werte¬ 
skala zu den Punkten des Diagramms und sind des¬ 
halb, wie auch die senkrechten Unterteilungen, 
über das gesamte Diagramm durchgeführt. 

1030-1150 Beschriftung der Y-Achse 

Der erste Schritt dieses Programmteils ist die Auf¬ 
bereitung des Maximalwertes (MA), der sich bei 
der Eingabe der Werte für die einzelnen Monate 
ergeben hat. Zeile 1060 trennt eventuell vor¬ 
handene Nachkommastellen ab und erhöht den 
Maximalwert um eins, falls es zu einem Abtrennen 
kommt. Dies geschieht, damit sich keine Werte er¬ 
geben können, die größer sind als die größte Ein¬ 
teilung der Skala. Sollte der Maximalwert eine un¬ 
gerade Zahl sein, so wird sie in Zeile 1070 inkre- 
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mentiert, um eine allzu komplexe Einteilung der 
Werteskala auszuschließen. 

Nach dem Koppeln der Textausgabe mit dem Gra¬ 
fikcursor (TAG) wird in einer FOR-TO-NEXT- 
Schleife die Beschriftung der Y-Achse vor¬ 
genommen. Bei jedem der 11 Schleifendurchläufe 
wird zuerst die Position ermittelt, an der die Aus¬ 
gabe der Beschriftung für den aktuellen Durchlauf 
erfolgen soll, und der Variablen PY zugewiesen. 
Die Beschriftung wird von unten nach oben vorge¬ 
nommen, wobei unter Berücksichtigung der For¬ 
matangabe das Zehntel des Maximalwertes mul¬ 
tipliziert mit dem Schleifenindex ausgegeben wird. 

1160-1320 Punkte setzen 

In einer FOR-TO-NEXT-Schleife werden die 
Kreuze, die das eigentliche Diagramm ausmachen, 
gezeichnet. In Zeile 1210 wird zunächst aus dem 
Wert für den Monat, der sich durch die Indizie¬ 
rung ergibt, unter Einbeziehung des Maximalwertes 
und zweier Konstanten, die Y-Position für den 
Mittelpunkt des Kreuzes ermittelt (MY). 

Die X-Position für das Kreuz ergibt sich durch 
Hinzuaddieren von 32 - bei jedem Schlei¬ 

fendurchlauf - zu der Variablen F, die vor der 
Schleife auf den Defaultwert 131 gesetzt wurde. 
Die beiden rechnerischen Koordinaten müssen, da 
kein Punkt, sondern das umdefinierte Zeichen 255 
ausgegeben werden soll, so umgewandelt werden, 
daß sich die Koordinaten der linken oberen Ecke 
der Zeichenmatrix ergeben. 

Für die Y-Position geschieht das in Zeile 1240. Die 
X-Position wird beim Versetzen des Grafikcursors 
(Zeile 1280) angepaßt, denn sie darf nicht zurück¬ 
geschrieben werden. An der so erreichten Position 
des Grafikcursors wird das unter Zeichennummer 
255 definierte Kreuz auf den Bildschirm gesetzt. 
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Am Schnittpunkt der beiden Linien des Kreuzes 
liegt der Wert für den jeweiligen Monat. 

In Zeile 1320 befindet sich eine Endlosschleife, die 
verhindern soll, daß das Diagramm durch die 
"Ready"-Meldung zerstört wird. 

1330-Ende DATAs mit Monatsnamen 

Hier stehen, zu zwei DATA-Statements zusam¬ 
mengefaßt, die Namen der zwölf Monate, die von 
den Programmteilen EINLESEN DER EINZEL¬ 
NEN WERTE UND MAXIMALWERT ERMIT¬ 
TELN und BESCHRIFTUNG DER X-ACHSE 
benötigt werden. 


5.2 CPC-Chart - Der Diagrammgenerator 

Zahlen in einem Punktediagramm darzustellen ist eine objektive 
Darstellungsweise, da sie wirklich nur die reinen Fakten 
vermittelt. Es gibt aber andere Darstellungsformen, die neben 
der Vorstellung von Tatsachen auch noch eine Wertung des 
Zahlenmaterials implizieren und so in gewissem Umfang auf den 
Betrachter Einfluß nehmen. Da ist beispielsweise das 
Kurvendiagramm, das die einzelnen Werte innerhalb des Dia¬ 
gramms durch einen Linienzug miteinander verbindet. Durch die 
so entstehende Kurve werden Tendenzen, die das Zahlenmaterial 
aufweist, besonders stark unterstrichen. 

Ivine andere Darstellungsform ist das Balkendiagramm, das Sie 
schon in der Einführung in den Themenkreis der Geschäftsgra- 
l'ikcn kennengelernt haben. Seine Darstellung ergibt sich durch 
das Zeichnen eines Balkens von dem ermittelten Wert hin zur 
Achse, auf der die Herkunft des Zahlenmaterials angezeigt ist. 
Durch die Balken wird den dargestellten Fakten künstlich ein 
besonderer Nachdruck verliehen. 

Doch beurteilen Sie selbst wie unterschiedlich verschiedene 
Darstellungsformen dasselbe Zahlenmaterial heraussteilen. 
(Grundlage für die folgenden drei Diagramme (Punkt-, Kurven- 


und Balkendiagramm) soll eine Zusammenstellung von Ver¬ 
kaufszahlen sein. Die Aufstellung setzt verkaufte Stückzahlen 
eines imaginären Produktes in Relation zu den Monaten des 
Jahres 1985. 


Verkaufszahlen für das Jahr 1985 

Januar: 12000 Stück 
Februar: 8300 Stück 
März: 7700 Stück 
April: 7400 Stück 
Mai: 7100 Stück 
Juni: 6200 Stück 

Juli: 5500 Stück 
August: 5400 Stück 
September: 6100 Stück 
Oktober: 9000 Stück 
November: 14000 Stück 
Dezember: 15200 Stück 


Verkaufszahlen fuer das Jahr 1985 



Punktediagramm zeigt Fakten 




IHR Stuecfe 


Merkaufszahle» fuer das Jahr 198S 



KONftTE 


11 unlc.o p y 9: Kurvendiagramm unterstreicht Tendenzen 



Balkendiagramm verleiht besonderen Nachdruck 
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Um Ihnen auch die Möglichkeit an die Hand zu geben, in Zu¬ 
kunft Ihr Zahlenmaterial, sei es aus privatem oder geschäftli¬ 
chem Bereich, mit diesen drei Diagrammformen zu veranschau¬ 
lichen, haben wir das Programm "CPC-Chart" entwickelt. Es ist 
in der veröffentlichten Form zwar auf die Darstellung von Wer¬ 
ten, die in Beziehung zu den Monaten eines Jahres stehen, zu¬ 
geschnitten, läßt sich aber auf Grund der ausführlichen Pro¬ 
grammbeschreibung sehr leicht an andere Gegebenheiten anpas¬ 
sen. 

Die Bedienung von "CPC-Chart" entspricht im groben Rahmen 
der des bereits bekannten Programms "Punktediagramm". So muß 
auch hier zunächst die Beschriftung des Diagramms und der 
Werteskala eingegeben werden, dann folgt das Einlesen der 
Werte für die einzelnen Monate - auch hier dürfen die eingege¬ 
benen Werte nicht kleiner Null sein. Doch dann weicht die 
Bedienung das Programms von der von "Punktediagramm" ab. 
An dieser Stelle wird der Benutzer nämlich auf gef ordert, eine 
Darstellungsform zu wählen. Zur Auswahl stehen Punkte-, Kur¬ 
ven- und Balkendiagramm. Ist die Entscheidung über die Art 
der Darstellung getroffen, so beginnt "CPC-Chart" in bekannter 
Manier mit dem Erstellen der Grafik. Auch hier werden sämt¬ 
liche Einteilungen wieder automatisch vorgenommen. 

Ist das Diagramm auf dem Bildschirm erstellt, so bietet sich dem 
Benutzer innerhalb der Grafik ein zweites Menü. Hier kann er 
wählen, ob er von dem erstellten Diagramm einen Ausdruck auf 
dem Drucker erzeugen will (Hardcopy), zurück zur Wahl der 
Darstellungsform möchte oder das Programm beenden will. Hat 
der Benutzer "Hardcopy" gewählt, so wird die Menüauswahl auf 
dem Bildschirm gelöscht und eine exakte Kopie des Diagramms 
auf dem Drucker erzeugt. 


1000 ■************************************************************ 
1010 '*** *** 

1020 '*** CPC-CHART • DER DIAGRAMMGENERATOR *** 

1030 '*** JST 30.7.1986 *** 

1040 '*** *** 

1050 1 ************************************************************ 
1060 ' 

1070 MODE 2 
1080 MEMORY &8000 
1090 BORDER 0 
1100 INK 0,0 
1110 INK 1,11 
1120 DIM MY(12) 

1130 MA=0 
1140 ' 

1150 'GRAFIK-HARDCOPY 
1160 1 

1170 FOR A=&AOOO TO &A0BF 
1180 READ D 
1190 POKE A,D 
1200 Z=Z+D 
1210 NEXT A 
1220 ' 

1230 DATA &CD,&BA,&BB,&CD,&E 7,&BB,&3 2,&BD 
1240 DATA &A0,&CD,&6C,&A0,&21,&8F,S01,&22 
1250 DATA &BE,&A0,&11,&00,&00,&3E,&07,&32 
1260 DATA &C0,&A0,&CD,&7C,&A0,&0E,&00,&3A 
1270 DATA SCO, &A0, &47, &E5, &D5, &C5, &CD, &F0 
1280 DATA &88,&C1,&D1,&21,&BD,&A0,&BE,&E1 
1290 DATA &37.&20,&01,&A7,&CB,&11,&28,&2B 
1300 DATA &10,&E9,&CD, &AF,&A0,&79,&CD,&A6 
1310 DATA &A0,&13,&E5,&21,&7F,&02,&37,&ED 
1320 DATA &52,&E1,&38,&05,&2A,&BE ( &A0,&18 
1330 DATA &CC,&23,&7C,&B5, &C8,&2B,&11,&00 
1340 DATA &00,&22,&BE,&A0,&3E,&07,&BD,&20 
1350 DATA &B9,&7C,&B4,&20,&B5,&3E,&04,&32 
1360 DATA &C0,&A0,&18,&AE,&3E,81B,&CD,&A6 
1370 DATA &A0,&3E,&31,&CD,&A6,&AO,&00,&00 
1380 DATA &00,&00,&00,&C9,&E 5,&3E,&42,&CD 
1390 DATA &1E,&BB,&E1,&28,&02,&E1,&C9,&3E 
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1400 DATA &0D, &CD,&A6,&A0, &3E,&0A, &CD,&A6 
1410 DATA &A0,&3E, &1 B,&CD,&A6,&A0,&3E,&4C 
1420 DATA &CD, &A6,&A0,&3E,&7F,&CD, &A6, &A0 
1430 DATA WE.&Oa.&CD.&Aö.&AO.^.&CD.&aE 
1440 DATA &BD,&38,& F B,&CD,&2B,&BD,&C9,&3A 
1450 DATA SCO,&A0,&FE,&07,&C8,&AF,&CB,&11 
1460 DATA &CB,&11 ( &C8,&11,&C9,S00,&00,&00 
1470 ■ 

1480 IF Z<>23151 THEN PRINT "ERROR IN DATAS":END 
1490 ' 

1500 'PROGRAHHKOPF AUSGEBEN 
1510 1 

1520 G0SU8 3460 
1530 1 

1540 'BESCHRIFTUNGEN EINLESEN 
1550 ' 

1560 LOCATE 36,8 

1570 PRINT "|.|" 

1580 LOCATE 1,8 

1590 INPUT "UEBERSCHRIFT (MAX. 40 BUCHSTABEN)";UE$ 

1600 • 

1610 LOCATE 36,10 

1620 PRINT »|.I» 

1630 LOCATE 1,10 

1640 INPUT "WERTESKALA (MAX. 10 BUCHSTABEN)";UE$ 

1650 1 

1660 'EINLESEN DER EINZELNEN WERTE UND MAXIMALWERT ERMITTELN 
1670 ' 

1680 LOCATE 1,12 

1690 PRINT "GEBEN SIE JETZT DIE WERTE FUER DIE EINZELNEN MONATE EI 
Nt" 

1700 PRINT 
1710 ' 

1720 FOR 1=1 TO 12 
1730 READ MONATS 

1740 PRINT USING "\ V';MONAT$; 

1750 INPUT MY(I) 

1760 IF MA<MY(I) THEN MA=MY{I) 

1770 NEXT I 
1780 • 




Ein Bild säst mehr als tausend Worte - Geschäftsgrafiken 181 


1790 cts 
1800 • 

1810 'PROGRAMMKOPF AUSGEBEN 
1820 ' 

1830 GOSUB 3460 
1840 ' 

1850 LOCATE 1,8 

1860 PRINT »WAEHLEN SIE EINE DARSTELLUNGSFORM 
1870 PRINT 

1880 PRINT "PUNKTEDIAGRAMM (P>" 

1890 PRINT »KURVENDIAGRAMM <K)» 

1900 PRINT "BALKENDIAGRAMM <B)» 

1910 LOCATE 1,14 
1920 PRINT «IHRE WAHL» 

1930 ' 

1940 DA$=INKEY$ 

1950 IF DA$o"P" AND DA$o"K" AND DA$o"B" AND DA$<>"p" AND DA$<>» 

k» AND DA$o"b“ THEN 1910 

1960 1 

1970 CLS 

1980 • 

1990 'POSITION FUER BESCHRIFTUNG ERMITTELN 
2000 1 

2010 Tl=LEN(UE$) 

2020 T2=LEN(WE$) 

2030 PU=40-(TI/2) 

2040 PW=6-(T2/2) 

2050 1 

2060 'BESCHRIFTUNG AUSGEBEN 
2070 ' 

2080 LOCATE 69,20 
2090 PRINT "MONATE" 

2100 LOCATE PU,1 
2110 PRINT UE$ 

2120 LOCATE PW,9 
2130 PRINT WES 
2140 ' 

2150 'KOORDINATENSYSTEM ZEICHNEN 
2160 1 

2170 MOVE 163,375 
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2180 DRAU 163,112 
2190 DRAU 530,112 
2200 1 

2210 'SKALIERUNG DER X-ACHSE 
2220 • 

2230 FOR X=163 TO 515 STEP 32 

2240 HOVE X,100 

2250 DRAU X.375 

2260 NEXT X 

2270 1 

2280 'BESCHRIFTUNG DER X-ACHSE 
2290 1 

2300 FOR MY=1 TO 3 
2310 MY1=MY+19 
2320 RESTORE 2930 
2330 1 

2340 FOR M=1 TO 12 
2350 MX=M*4+17 
2360 READ MONATS 

2370 MONAT$=RIGHT$(LEFT$(MONAT$,MY),1) 

2380 LOCATE MX,MY1 

2390 PRINT MONATS 

2400 NEXT M 

2410 • 

2420 NEXT MY 
2430 ' 

2440 'SKALIERUNG DER Y-ACHSE 
2450 • 

2460 FOR Y=362 TO 112 STEP -25 

2470 MOVE 155,Y 

2480 DRAU 530,Y 

2490 NEXT Y 

2500 ' 

2510 'BESCHRIFTUNG DER Y-ACHSE 
2520 ' 

2530 IF INT(MA)<>MA THEN MA=INT(MA)+1 
2540 IF lNT(MA/2)<>MA/2 THEN MA=MA+1 
2550 ' 

2560 TAG 
2570 • 
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2580 FOR 1=0 TO 10 
2590 PY=25*I+117 
2600 HOVE 95.PT 

2610 PRINT USJNG "#####.#";HA/10*1; 

2620 NEXT I 
2630 • 

2640 1 DAR ST E L LUNGS FORH 
2650 ' 

2660 IF DA$="P" OR DA$="p" THEN GOSUB 2950 

2670 IF DA$="K" OR DA$= l, k' 1 THEN GOSUB 3110 

2680 IF DA$="B" OR DA$="b" THEN GOSUB 3290 

2690 • 

2700 TAGOFF 
2710 * 

2720 LOCATE 1,20 

2730 PRINT «HARDCOPY (H)» 

2740 PRINT "ZURUECK (2)» 

2750 PRINT "ENDE (E) 1 ' 

2760 1 

2770 HZE$=INKEY$ 

2780 IF HZE$<>"H" AND HZE$<>"Z" AND HZES<>"E" AND HZE$<>"h" AND HZ 

E$o"z" AND HZE$«"e" THEN 2720 

2790 IF HZE*="E" OR HZE$="e" THEN CLS:END 

2800 IF HZE$="Z" OR HZE$="z" THEN CLS:GOTO 1790 

2810 1 

2820 'HARDCOPY ANFERTIGEN 
2830 1 

2840 LOCATE 1,20 

2850 PRINT " " 

2860 PRINT " " 

2870 PRINT " " 

2880 ' 

2890 CALL &A000 

2891 1 

2892 GOTO 1790 
2900 • 

2910 'DATAS HIT HONATSNAMEN 
2920 • 

2930 DATA JANUAR,FEBRUAR,HAERZ,APRIL,HAI,JUNI 

2940 DATA JULI.AUGUST,SEPTEMBER,OKTOBER,NOVEMBER,DEZEMBER 
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2950 1 

2960 'PUNKTE SETZEN 
2970 • 

2980 SYMBOL 255,0,65,34,20,8,20,34,65 
2990 ’ 

3000 F=131 
3010 ' 

3020 FOR 1=1 TO 12 

3030 MY=((MY(I>/MA)*250)+112 

3040 F=F+32 

3050 MY=MY+8 

3060 MOVE F-4.MY 

3070 PRINT CHRSC255); 

3080 NEXT I 
3090 • 

3100 RETURN 
3110 ' 

3120 'KURVE ZEICHNEN 
3130 ' 

3140 F=131 
3150 ' 

3160 FOR 1=1 TO 12 

3170 MY=<<MYO)/MA>*250>+112 

3180 F=F+32 

3190 IF 1=1 THEN X2=F:Y2=MY 

3200 X1=X2 

3210 Y1=Y2 

3220 X2=F 

3230 Y2=MY 

3240 MOVE XI,Y1 

3250 DRAW X2,Y2 

3260 NEXT I 

3270 ' 

3280 RETURN 
3290 ' 

3300 'BALKEN ZEICHNEN 
3310 1 
3320 F=131 
3330 • 

3340 FOR 1=1 TO 12 
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3350 MY=((MY(I)/MA)*250)+112 
3360 F=F+32 
3370 1 

3380 FOR L=F-7 TÖ F+7 

3390 MOVE L,MY 

3400 DRAU L, 112 

3410 NEXT l 

3420 1 

3430 NEXT I 

3440 ' 

3450 RETURN 
3460 1 

3470 'PROGRAMMKOPF AUSGEBEN 
3480 ' 

3490 LOCATE 30,3 

3500 PRINT "2-D-GESCHAEFTSGRAFIK" 

3510 lOCATE 33,4 

3520 PRINT "JST 30.7.1986 1 ' 

3530 1 

3540 'RAHMEN ZEICHNEN 
3550 ' 

3560 MOVE 16,383 
3570 DRAU 16,320 
3580 DRAU 623,320 
3590 DRAU 623,383 
3600 DRAU 16,383 
3610 ' 

3620 RETURN 


Erogrammbeschreibung: 

1000-1130 Definitionen, Dimensionierungen und Vorbele¬ 
gungen. Der Bildschirm wird in den 80-Zeichen- 
Modus versetzt, und der RAM-Bereich, der BASIC 
zu Verfügung steht, durch MEMORY &8000 be¬ 
grenzt. Oberhalb dieser Grenze wird ein Maschi¬ 
nenprogramm zu Stehen kommen, das durch diese 
Maßnahme gegen Überschreiben geschützt ist. Eine 
kontrastreiche Farbkombination wird gewählt und 
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die indizierte Variable MY auf 13 Elemente di¬ 
mensioniert. Unter den Indizes 1 bis 12 sollen die 
Werte für die zwölf Monate gespeichert werden. 
Die Variabe MA, in der im Verlauf des Programms 
der Maximalwert für die Monate entstehen soll, 
wird mit 0 vorbelegt. 

1140-1480 Grafik-Hardcopy 

Dieser Programmteil schreibt eine einfache Hard¬ 
copyroutine in den Speicher, mit der die erstellten 
Diagramme auf einem mit dem Rechner verbun¬ 
denen Drucker ausgegeben werden können. Die 
Routine steht ab &A000 im RAM-Speicher und 
kann mit CALL &A000 aufgerufen werden. Eine 
genaue Beschreibung dieser Routine finden Sie in 
Kapitel 8.3. 

1490-1520 Programmkopf ausgeben 

Der Name und die Eignerkennung des Programms 
werden auf dem Bildschirm ausgegeben und um¬ 
randet. Um dies zu erreichen, wird ein Unterpro¬ 
gramm in Zeile 3460 auf gerufen. 

1530-1640 Beschriftungen einiesen 

Überschrift und Beschriftung der Werteskala des 
zu erzeugenden Diagramms werden mit der 
INPUT-Funktion eingelesen. Der für die Eingaben 
zur Verfügung stehende Platz wird auf dem Bild¬ 
schirm gekennzeichnet. 

1650-1790 Einlesen der einzelnen Werte und Maximalwert 
ermitteln 

Nach der Meldung, daß nun die Werte für die 
darzustellenden Monate eingegeben werden sollen, 
beginnt das Programm mit der Abarbeitung einer 
FOR-TO-NEXT-Schleife. Innerhalb dieser Schlei¬ 
fe, die genau 12mal durchlaufen wird, werden 
Eingaben für die einzelnen Monate vom Benutzer 
erfragt. Hierzu wird bei jedem Schleifendurchlauf 
der Inhalt von MONATS mit einem der Mo- 
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natsnamen gefüllt, die im DATA-Block am Ende 
des Programms stehen. 

Nach der Ausgabe des Monatsnamen, mit einem 
für alle Monate einheitlichen Format, wird der 
Wert erwartet, der für die grafische Darstellung 
des betreffenden Monats zu Grunde gelegt werden 
soll. In Zeile 1760 wird der aktuelle Inhalt von 
MY(I) mit dem von MA verglichen und, sollte MA 
den kleineren Wert enthalten, zugewiesen. Nach 
dem Durchlauf der FOR-TO-NEXT-Schleife steht 
in MA der Maximalwert aller zwölf Monate. Der 
Bildschirm wird für weitere Ausgaben gelöscht. 

1800-1970 Nach der erneuten Ausgabe des Programmkopfes 
(GOSUB 3460) zeigt dieser Programmteil eine 
Auswahl von drei Menüpunkten auf dem Bild¬ 
schirm. Durch Betätigen der Tasten "P", "K" oder 
"B" kann der Benutzer zwischen den Dar¬ 
stellungsformen Punkte-, Kurven und Balkendia¬ 
gramm wählen. Nach erfolgter Auswahl wird der 
Bildschirm zum Zeichnen des Diagramms gelöscht. 

1980-2040 Position fuer Beschriftung ermitteln 

Die Länge der Überschrift und der Beschriftung 
der Werteskala werden mit der Funktion LEN er¬ 
mittelt und den Variablen TI und T2 zugewiesen. 
Der durch 2 dividierte Inhalt dieser Variablen wird 
von der X-Position subtrahiert, die später genau in 
der Mitte der Beschriftung liegen wird. Auf diese 
Weise kann auf die X-Position des Textcursors 
geschlossen werden, an der mit der Ausgabe der 
Texte begonnen werden muß, um sie an der ge¬ 
wünschten Position zentriert erscheinen zu lassen. 
Die X-Koordinaten für den Start der Textausgaben 
befinden sich in den Variablen PU (Überschrift) 
und PW (Werteskala). 


2050-2130 Beschriftung ausgeben 

Die Beschriftung für das Diagramm erscheint auf 
dem Bildschirm, wobei die errechneten Positionen 
für die Textausgabe Verwendung finden. 

2140-2190 Koordinatensystem zeichnen 

Mit einem MOVE- und zwei DRAW-Kommandos 
wird das Koordinatensystem gezeichnet, in dem das 
Diagramm ruhen wird. 

2200-2260 Skalierung der X-Achse 

Nach dem Durchlauf dieses Programmteils ist das 
Koordinatensystem von der X-Achse aus durch 12 
senkrechte Linien aufgeteilt. Diese an den zwölf 
Monaten orientierte Unterteilung wird zur besseren 
Übersichtlichkeit des Diagramms durchgeführt. 

2270-2420 Beschriftung der X-Achse 

Innerhalb dieses Programmteils werden die ersten 
drei Buchstaben der Monatsnamen senkrecht un¬ 
tereinander an die für sie bestimmten Positionen 
der X-Achse geschrieben. Diese Aufgabe wird von 
zwei ineinander verschachtelten FOR-TO-NEXT- 
Schleifen gelöst. 

Die äußere Schleife hat genau drei Durchläufe, von 
denen jeder einen der drei Buchstaben der Mo¬ 
natsnamen behandelt. Aus der Indexvariablen die¬ 
ser Schleife (MY) wird in Zeile 860 die Y-Position 
für die Ausgabe der Buchstaben des aktuellen 
Schleifendurchlaufs ermittelt. Vor dem Eintritt in 
die innere FOR-TO-NEXT-Schleife wird der 
DATA-Zeiger auf den DATA-Block mit Mo¬ 
natsnamen zurückgesetzt und damit ein Auslesen 
der Monatsnamen bei jedem Schleifendurchlauf er¬ 
möglicht. 

Jeder der 12 Durchläufe der inneren Schleife han¬ 
delt einen Monat ab. Zunächst wird in der Schleife 
aus der Indexvariablen M die X-Koordinate für 
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die Ausgabe des Buchstaben ermittelt und MX zu¬ 
gewiesen. Damit steht die Position für die Textaus¬ 
gabe in den Variablen MX und MY1. Welcher 
Buchstabe auszugeben ist, wird in den Zeilen 2360 
und 2370 bestimmt. 

Aus dem Monatsnamen, der dem DATA-Block 
entnommen wird, isoliert die Programmzeile 2370 
den entsprechenden Buchstaben. Dazu werden 
entsprechend der Indexvariablen MY der erste, die 
ersten beiden oder die ersten drei Buchstaben des 
Monatsnamen abgetrennt (LEFT$(MONAT$,MY)) 
und der jeweils letzte für die Ausgabe bestimmt. 
Es erfolgt die Positionierung des Textcursors auf 
die ermittelte Stelle und die Ausgabe des isolierten 
Buchstaben, der sich in der Variablen MONATS 
befindet. 

2430-2490 Skalierung der Y-Achse 

Nach dem Durchlauf dieses Programmteils ist das 
Koordinatensystem von der Y-Achse aus durch 11 
waagerechte Linien aufgeteilt. Die unterste Linie 
(X-Achse) steht gleichzeitig für den Nullpunkt auf 
der Werteskala. Alle weiteren Unterteilungen, die¬ 
nen zur besseren Zuordnungsmöglichkeit der An¬ 
gaben der Werteskala zu den Punkten des Dia¬ 
gramms und sind deshalb, wie auch die senk¬ 
rechten Unterteilungen, über das gesamte Dia¬ 
gramm durchgeführt. 

2500-2620 Beschriftung der Y-Achse 

Der erste Schritt dieses Programmteils ist die Auf¬ 
bereitung des Maximalwertes (MA), der sich bei 
der Eingabe der Werte für die einzelnen Monate 
ergeben hat. Zeile 2530 trennt eventuell vor¬ 
handene Nachkommastellen ab und erhöht den 
Maximalwert um eins, falls es zu einem Abtrennen 
kommt. Dies geschieht, damit sich keine Werte er¬ 
geben können, die größer sind als die größte Ein¬ 
teilung der Skala. Sollte der Maximalwert eine un- 
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gerade Zahl sein, so wird sie in Zeile 2540 inkre- 
mentiert, um eine allzu komplexe Einteilung der 
Werteskala auszuschließen. 

Nach dem Koppeln der Textausgabe mit dem Gra¬ 
fikcursor (TAG) wird in einer FOR-TO-NEXT- 
Schleife die Beschriftung der Y-Achse vorgenom¬ 
men. Bei jedem der 11 Schleifendurchläufe wird 
zuerst die Position ermittelt, an der die Ausgabe 
der Beschriftung für den aktuellen Durchlauf er¬ 
folgen soll, und der Variablen PY zugewiesen. Die 
Beschriftung wird von unten nach oben vor¬ 
genommen, wobei, unter Berücksichtigung der 
Formatangabe, das Zehntel des Maximalwertes 
multipliziert mit dem Schleifenindex ausgegeben 
wird. 

2630-2680 Darstellungsform 

In diesem Programmteil wird, entsprechend der 
Eingabe bei der Frage nach der Darstellungsform, 
in die Unterprogramme zum Erstellen eines 
Punkte- (Zeile 2950), Kurven- (Zeile 3110) oder 
Balkendiagramms (Zeile 3290) verzweigt. 

2690-2800 Befindet sich das gewünschte Diagramm auf dem 
Bildschirm, so erscheint eine zweite Menüauswahl. 
Sie bietet die Möglichkeiten, eine Hardcopy des 
Diagramms, das sich auf dem Bildschirm befindet, 
anzufertigen, zurück zur Auswahl der Darstel¬ 
lungsform zu gehen oder das Programm zu been¬ 
den. 

Nach erfolgter Auswahl eines der drei möglichen 
Punkte wird das Programm beendet (Zeile 2790) 
oder zur weiteren Verarbeitung nach Zeile 1790 
gesprungen. Der Menüpunkt "Hardcopy" wird nicht 
mit einer IF-Abfrage ausgesondert, sondern immer 
ausgeführt, wenn keiner der anderen Punkte aus¬ 
gewählt wurde. 
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2810-2890 Hardcopy anfertigen 

Um das Diagramm von überflüssigen Angaben zu 
befreien, wird in den Zeilen 2840 bis 2870 die 
Menüauswahl auf dem Bildschirm gelöscht und 
dann die Hardcopyroutine auf gerufen (CALL 
&A000). Nach dem Ausdruck der Hardcopy setzt 
das Programm seine Verarbeitung bei Zeile 1790 
fort. 

2900-2940 DATAs mit Monatsnamen 

Hier stehen, zu zwei DATA-Statements zu¬ 
sammengefaßt, die Namen der zwölf Monate, die 
von den Programmteilen EINLESEN DER EIN¬ 
ZELNEN WERTE UND MAXIMALWERT ER¬ 
MITTELN und BESCHRIFTUNG DER X-ACHSE 
benötigt werden. 

2950-3100 Punkte setzen 

Nach der Umdefinition des Zeichen 255 in Gestalt 
eines Kreuzes (Zeile 2980) wird in einer FOR-TO- 
NEXT-Schleife das Punktediagramm gezeichnet. In 
Zeile 3030 wird zunächst aus dem Wert für den 
Monat, der sich durch die Indizierung ergibt, unter 
Einbeziehung des Maximalwertes und zweier Kon¬ 
stanten, die Y-Position für den Mittelpunkt des 
Kreuzes ermittelt (MY). 

Die X-Position für das Kreuz ergibt sich durch 
Hinzuaddieren von 32 - bei jedem Schleifen¬ 
durchlauf - zu der Variablen F, die vor der 
Schleife auf den Defaultwert 131 gesetzt wurde. 
Die beiden rechnerischen Koordinaten müssen, da 
kein Punkt, sondern das umdefinierte Zeichen 255 
ausgegeben werden soll, so umgewandelt werden, 
daß sich die Koordinaten der linken oberen Ecke 
der Zeichenmatrix ergeben. 

Für die Y-Position geschieht das in Zeile 3050. Die 
X-Position wird beim Versetzen des Grafikcursors 
(Zeile 3060) angepaßt, denn sie darf nicht zurück- 
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geschrieben werden. An der so erreichten Position 
des Grafikcursors wird das unter Zeichennummer 
255 definierte Kreuz auf den Bildschirm gesetzt. 
Am Schnittpunkt der beiden Linien des Kreuzes 
liegt der Wert für den jeweiligen Monat. 

Nachdem das Diagramm erstellt ist, erfolgt der 
Rücksprung aus diesem Unterprogramm (Zeile 
3100). 

3110-3280 Kurve zeichnen 

Der Aufbau des Unterprogramms KURVE 
ZEICHNEN entspricht in groben Zügen dem Auf¬ 
bau von PUNKTE SETZEN. Einer der 
Hauptunterschiede ist es, daß die ermittelten 
Punkte durch einen Linienzug miteinander verbun¬ 
den werden. Um dies zu erreichen, werden die 
Koordinaten des vorherigen Punktes als Startkoor¬ 
dinaten für die Verbindung mit dem aktuellen 
Punkt gewählt. Bei ersten Durchlauf der FOR-TO- 
NEXT-Schleife kann es noch keine Startkoordina¬ 
ten geben, so daß diese künstlich erzeugt werden 
müssen (Zeile 3190). 

3290-3450 Balken zeichnen 

Auch BALKEN ZEICHNEN entspricht dem Auf¬ 
bau von PUNKTE SETZEN, nur daß statt der 
Kreuze Balken von der X-Achse bis zu den ermit¬ 
telten Werten der Monate gezogen werden. Zu 
diesem Zweck wird eine zweite FOR-TO-NEXT- 
Schleife in die Routine integriert, der die Aufgabe 
zukommt die zwölf Balken zu zeichnen. 

Als Startwert für die zweite Schleife wird die X- 
Position, an der der gerade bearbeitete Monat 
steht, um sieben vermindert und als Endwert um 
ebenfalls sieben erhöht. Der Grafikcursor wird bei 
jedem Schleifendurchlauf an die Position bewegt, 
die sich aus dem Schleifenindex (L) und dem 
errechneten Y-Wert für den Monat zusammensetzt. 
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Von dieser Position wird dann eine Linie auf die 
X-Achse gefällt. Hat die innere FOR-TO-NEXT- 
Schleife ihre Arbeit verrichtet, so ist der Balken 
für den Monat, der sich aus dem Index der äuße¬ 
ren Schleife (I) ergibt, gezeichnet. 

.1460-Ende Programmkopf ausgeben 

In diesem Unterprogramm wird der Name und die 
Eignerkennung des Programms auf dem Bildschirm 
ausgegeben und umrandet. Danach Rücksprung ins 
Hauptprogramm. 


5.3 Kuchendiagramm 

Eine Form der grafischen Darstellung von Zahlenmaterial, die 
von den bisher besprochenen vollkommen abweicht, ist das 
Kuchendiagramm. Das Kuchendiagramm ermöglicht es, Zahlen, 
die zusammen ein Ganzes ergeben, in ihrem prozentualen Ver¬ 
hältnis darzustellen. Dabei werden die Prozentzahlen als Seg¬ 
mente eines 360-Grad-Vollkreises veranschaulicht, wodurch 
mich der Name "Kuchendiagramm" entstanden ist. 

Wie man mit einem Kuchendiagramm Zahlenmaterial 1 auswertet, 
soll ein Beispiel aus dem Staatshaushalt der BRD verdeutlichen: 

Im Jahre 1984 nahmen der Bund, die Länder, die Gemeinden 
und die EG Steuern im Wert von rund 415 Milliarden DM ein. 
Dabei entfielen 48% (199,2 Mrd.) auf den Bund, 34,7% (144,005 
Mrd.) auf die Länder, 13% (53,95 Mrd.) auf die Gemeinden und 
1,5% (14,525 Mrd.) auf die EG. Für die Darstellung als Ku¬ 
chendiagramm werden nun die 415 Mrd. DM Gesamtsteuerauf¬ 
kommen gleich 100% gesetzt, was in der Darstellung dem 360- 
< lind-Vollkreis entspricht. Entsprechend der prozentualen Ver¬ 
teilung wird nun jedem am Steueraufkommen Beteiligten ein 
unterschiedlich großes Stück des "Steuerkuchens" zugedacht, so 
daß sich diese Darstellung ergibt: 


Quelle: Kaufmännische Betriebslehre (H), Europa Lehrmittel, 1986, 
Seite 493 


t 
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Steuern des Jahres 1984 



Hardcopy IX: Kuchendiagramm zeigt prozentuale Verhältnisse 


Das Programm ''Kuchendiagramm", das diese Grafik erzeugte, 
erwartet vom Benutzer nach der Eingabe eine Überschrift für 
das Diagramm, die Eingabe der darzustellenden Werte sowie 
ihrer Bezeichnungen. Es spielt für die Verarbeitung des Pro¬ 
gramms keine Rolle, ob Prozentzahlen oder absolute Größen 
eingegeben werden, da das Programm ohnehin nur ihren Anteil 
am Vollkreis ermittelt. Will man die Eingabe von Werten been¬ 
den, so kann dies durch einfaches Drücken der RETURN-Taste 
bei der Frage nach Wert und Bezeichnung erreicht werden. 

Sind alle Werte ordnungsgemäß eingegeben und mindestens zwei 
- für eine sinnvolle Darstellung nötige - vorhanden, so beginnt 
das Programm mit der Erstellung der Kuchengrafik. Zunächst 
werden die Überschrift und der Vollkreis ausgegeben. Dann 
wird nach und nach der Vollkreis in einzelne Segmente unterteilt 
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und diese werden beschriftet. Die fertig erstellte Grafik bleibt 
solange auf dem Bildschirm erhalten, bis das Programm mit der 
ESC-Taste unterbrochen wird. 


100 MODE 2 
110 DEG 

120 DIM UERT(25) 

130 DIM GRAD(25) 

140 DIM P(25) 

150 DIM BEZ$<25) 

160 UINDOU#1,1,80,10,25 
170 GES=0 
180 INDEX=1 
190 ' 

200 'PROGRAMMKOPF AUSGEBEN 
210 ' 

220 LOCATE 32,3 

230 PRINT “KUCHENDIAGRAMM 

240 LOCATE 34,4 

250 PRINT "JST 2.8.1986" 

260 • 

270 'RAHMEN ZEICHNEN 
280 * 

290 MOVE 16,383 
300 DRAU 16,320 
310 DRAU 623,320 
320 DRAU 623,383 
330 DRAU 16,383 
350 ' 

360 'BESCHRIFTUNG EINLESEN 
370 ' 

380 LOCATE#1,36,1 

390 PRINT#1,"|.|" 

400 L0CATE#1,1,1 

410 INPUT#1,"UEBERSCHRI FT (MAX. 38 BUCHSTABEN)'';UE$ 
420 T1=LEN(UE$) 

430 PU=20-(T1/2) 

440 ' 

450 CLS#1 
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460 • 

470 LOCATE 1,8 

480 PRINT "GEBEN SIE JETZT DIE WERTE UND BEZEICHNUNGEN EIN!» 
490 ' 

500 PRINT#1," ";USING"##";INDEX; 

510 PR1NT#1,"TER WERT:"; 

520 INPUT#1,WERT(INDEX) 

530 ' 

540 PRINT#1,"BEZEICHNUNG:"; 

550 INPUT#1,BEZ*{INDEX) 

560 ' 

570 IF WERT(INDEX)=0 AND BEZ$(INDEX)="» THEN CLS:GOTO 650 
580 ' 

590 GES=GES+WERT(INDEX) 

600 INDEX=INDEX*1 
610 PRINT#1 
620 ' 

630 GOTO 500 
640 ' 

650 IF INDEX<=2 THEN END 
660 ' 

670 MODE 1 
680 1 

690 'BESCHRIFTUNG AUSGEBEN 
700 ' 

710 LOCATE PU,1 
720 PRINT UES 
730 * 

740 'GRAFIK ZEICHNEN 
750 ' 

760 GOSUB 1110 
770 ' 

780 ORIGIN 320,200 
790 TAG 
800 ' 

810 FOR 1=1 TO INDEX 

820 GRAD(I)=INT(WERT(I)*360/GES) 

830 P(I)=INT(GRAD(I)/2) 

840 NEXT I 
850 * 
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860 1=1:ALT=0 

870 FOR GRAD=1 TO 360 

880 HOVE 0,0 

890 IF GRAD=ALT+P(I) THEN ALT=ALT+P(I)*2:GOSUB 930 

900 IF GRAD(I)=GRAD THEN DRAU 150*COS(GRAD),150*SIN(GRAD):GRAD(I+1 

)=GRAD(1+1>+GRAD(l):1=1+1 

910 NEXT GRAD 

920 GOTO 920 

930 1 

940 'BESCHRIFTUNG DER KREISSEGMENTE 
950 1 

960 0=(LEN(BE2$(I))*16J+10 
970 X=150*COS{GRAD) 

980 Y=150*SIN<GRAD) 

990 MOVE X,Y 


1000 

1 


1010 

IF X>=0 THEN MOVER 

10,0 

1020 

IF X<0 THEN MOVER 

-0,0 

1030 

IF Y>=0 THEN MOVER 

0,10 

1040 

IF Y<0 THEN MOVER 

0,-10 

1050 

i 


1060 

PRINT BEZ$(I); 


1070 

i 


1080 

MOVE 0,0 


1090 

' 


1100 

RETURN 


1110 

i 


1120 

'KREIS ZEICHNEN 


1130 

t 


1140 

'MITTELPUNKT UND RADIUS 

1150 

1 


1160 

XP%=320 


1170 

YP%=200 


1180 

XR%=150 


1190 

YR%=150 


1200 

t 


1210 

'ERSTE KOORDINATE 


1220 

i 


1230 

J%=0 


1240 

GOSUB 1490 
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1250 X1%=X2% 

1260 Y1%=Y2% 

1270 ' 

1280 'UEITERE KOORDINATEN 
1290 1 

1300 FOR J%=0 TO 15 STEP 6 
1310 GOSUB 1490 
1320 ■ 

1330 'KREIS ZEICHNEN 
1340 1 

1350 MOVE XP%+XU,YP%+Y1% 

1360 DRAU XP%+X2%,YP%+Y2% 

1370 HOVE XP%+X1%,YP%-Y1%+1 
1380 DRAU XP%+X2%,YP%-Y2%+1 
1390 MOVE XP%-X1%+1,YP%-Y1%+1 
1400 DRAU XP%-X2%+1,YP%-Y2%+1 
1410 MOVE XP%-XU+1,YP%+Yl% 
1420 DRAU XP%-X2%+1,YP%+Y2% 
1430 • 

1440 X1%=X2%:Y1%=Y2% 

1450 ' 

1460 NEXT 
1470 1 
1480 RETURN 
1490 ' 

1500 'KOORDINATEN ERMITTELN 
1510 ' 

1520 X2%=INT(COS(J%)*XRS£+0.5) 
1530 Y2%=INT(SIN(J%)*YR%+0.5) 
1540 1 
1550 RETURN 


Programmbeschreibung: 

100-180 Definitionen, Dimensionierungen und Vor¬ 
belegungen. MODE 2 wird gesetzt und der Com¬ 
puter mit DEG ins Winkelmaß gesetzt. Die Vari¬ 
ablen WERT, GRAD, P und BEZ$ werden auf je 
26 Elemente dimensioniert, wodurch die Anzahl 
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der maximal in einer Kuchengrafik darstellbaren 
Werte begrenzt ist. 

Unter #1 wird ein Fenster definiert, in dessen 
Grenzen die darzustellenden Werte und deren Be¬ 
zeichnungen eingelesen werden können, ohne daß 
die Überschrift zerstört wird. 

Die Variablen GES und INDEX werden auf ihren 
Defaultwert gebracht. In GES wird die Summe al¬ 
ler darzustellenden Werte gebildet, und INDEX 
dient als Zugriffsschlüssel auf die verschiedensten 
Feldvariablen. 

190-250 Programmkopf ausgeben 

Der Name des Programms und die Eignerkennung 
werden auf den Bildschirm gebracht. 

260-330 Rahmen zeichnen 

Die Ausgaben auf dem Bildschirm werden mit ei¬ 
ner Linie umrandet. 

350-670 Beschriftung einiesen 

Auf dem Bildschirm wird ein 38 Zeichen großes 
Feld markiert, in dem der Benutzer den Text für 
die Überschrift des Kuchendiagramms eingeben 
soll. Ist der Text eingegeben, so wird in Zeile 420 
seine Länge ermittelt und mit dieser Angabe die 
X-Position errechnet, an der mit der Ausgabe des 
Textes auf dem Bildschirm begonnen werden muß, 
damit der Text zentriert erscheint. Alle bisherigen 
Eingaben wurden im Fenster #1 vorgenommen, das 
mit Zeile 450 wieder gelöscht wird. 

Mit der Aufforderung "GEBEN SIE JETZT DIE 
WERTE UND BEZEICHNUNGEN EIN!" wird der 
Benutzer zur Eingabe der darzustellenden Daten 
veranlaßt. Diese Aufforderung soll während der 
gesamten Eingabephase auf dem Bildschirm sicht¬ 
bar bleiben und erfolgt deshalb in Window #0. In 
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Fenster #1 werden dann die Werte und deren Be¬ 
zeichnungen eingelesen. Ist die letzte Zeile des 
Fensters beschrieben, so kann innerhalb von #1 
gescrollt werden, ohne die Überschrift zu zerstö¬ 
ren. 

Zeile 570 wird überprüft, ob der aktuell ein¬ 
gegebene Wert 0 und dessen Bezeichnung Leerst¬ 
ring ist, was zum Verlassen der Eingabeschleife 
führt. 

Wurde die Abbruchbedingung nicht erfüllt, so ad¬ 
diert das Programm den aktuellen Wert zu den 
schon eingegebenen Werten hinzu, die aufsummiert 
in der Variablen GES vorliegen. Nach dem Inkre- 
mentieren des Index (INDEX) wird die Abarbei¬ 
tung der Eingabeschleife von vorne begonnen. 

In Zeile 650, die nach dem Verlassen der Einga¬ 
beschleife angesprungen wird, trifft das Programm 
auf END, wenn weniger als zwei Werte eingegeben 
wurden. Mit weniger als zwei Werten läßt sich kein 
sinnvolles Kuchendiagramm erstellen! 

680-720 Beschriftung ausgeben 

An der vorberechneten Stelle wird die Beschriftung 
des Kuchendiagramms auf dem zuvor durch 
MODE 1 (Zeile 670) gelöschten Bildschirm, ausge¬ 
geben. 

730-920 Grafik zeichnen 

Erster Schritt bei Erstellen der Kuchengrafik ist 
der Aufruf der Unterroutine ab Zeile 1110, die 
einen Kreis auf den Bildschirm zeichnet. In den 
Mittelpunkt dieses Kreises wird dann der Koordi¬ 
natenursprung gesetzt und die Textausgabe an den 
Grafikcursor gebunden. 

In einer FOR-TO-NEXT-Schleife, die so viele 
Durchläufe macht, wie Werte eingegeben wurden, 
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wird ermittelt, wieviel Grad des 360-Grad-Voll- 
kreises auf die Darstellung der einzelnen Werte 
entfallen. Des weiteren wird die Hälfte dieser 
Gradangaben gebildet, um eine Position für die 
Bezeichnung der Kreissegmente gewinnen zu kön¬ 
nen. 

Die FOR-TO-NEXT-Schleife von Zeile 870 bis 
Zeile 910 nimmt die Unterteilung des Vollkreises 
und die Beschriftung der einzelnen Segmente vor. 
Die Schleife hat genau 360 Durchläufe und kann so 
für jedes einzelne Grad des Vollkreises überprüfen, 
ob eine Beschriftung vorzunehmen oder ein Kreis¬ 
segment abzugrenzen ist. Als Hilfsvariablen dienen 
innerhalb der Schleife I und ALT, die vor dem 
Eintritt in die Schleife auf ihren jeweiligen De¬ 
faultwert gebracht wurden. I stellt einen Index dar, 
mit dem auf die Elemente der indizierten Vari¬ 
ablen P und GRAD zugegriffen werden kann. In 
der Variablen ALT werden steht immer die Grad¬ 
angabe der äußeren Begrenzung des Kreissegments, 
das zuletzt beschriftet wurde. 

Ist die Kuchengrafik auf dem Bildschirm entstan¬ 
den, so bringt Zeile 920 den Computer in eine 
Endlosschleife, damit die Ready-Meldung die 
Grafik nicht zerstören kann. 

930-1100 Beschriftung der Kreissegmente 

Dieses Unterprogramm wird bei Zeichnen der 
Kuchengrafik immer dann aufgerufen, wenn die 
Hälfte eines Kreissegmentes erreicht ist. Das Un¬ 
terprogramm errechnet die Position, an der die 
Bezeichnung des Segments ausgegeben werden soll, 
bewegt den Grafikcursor und gibt den Text, den es 
entsprechend der Indizierung von BEZ$ findet, 
aus. Ist diese Arbeit verrichtet, setzt die Subroutine 
noch den Grafikcursor an den Koordinatenur¬ 
sprung, bevor der Rücksprung erfolgt. 
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1110-Ende Kreis zeichnen 

Die Integervariablen XP% (X-Koordinate Mittel¬ 
punkt), YP% (Y-Koordinate Mittelpunkt), XR% 
(Radius in X-Ausdehnung) und YR% (Radius in 
Y-Ausdehnung) werden mit den Angaben zum 
Zeichnen des Kreises versorgt. 

Da beim Zeichnen des Kreises nicht mit dem BA- 
SIC-Kommando PLOT gearbeitet wird, sondern 
das Kommando DRAW Verwendung findet, muß 
jeweils ein Start- und ein Endpunkt für die Linie 
errechnet werden. Der Startpunkt für die erste Li¬ 
nie (0 Grad) wird im Programmteil ERSTE KO¬ 
ORDINATE ermittelt, wobei die Koordinaten sich 
schließlich in den Variablen XI% und Yl% befin¬ 
den. In der FOR-TO-NEXT-Schleife von Zeile 
1300 bis 1460 werden dann in 6-Grad-Schritten 
alle weiteren Koordinaten (Von 6 bis 90 Grad) er¬ 
zeugt. 

Zu den Koordinaten sei noch angemerkt, daß sich 
ausnahmslos alle im ersten Viertel des Kreises be¬ 
finden. Die Koordinaten für die drei übrigen 
Viertel des Kreises werden durch Spiegelung am 
Kreismittelpunkt erzeugt. Wie das Zeichnen des 
Kreises exakt vonstatten geht, wird bei Betrach¬ 
tung des Programmteils KREIS ZEICHNEN schnell 
deutlich. Ist eine Linie gezogen, so wird ihr End¬ 
punkt zum Startpunkt für die nächste Linie erklärt - 
(Zeile 1440). Nachdem der Kreis vollständig ge¬ 
zeichnet ist, erfolgt der Rücksprung zur Haupt¬ 
schleife. 

Das Unterprogramm KOORDINATEN ERMIT¬ 
TELN wird ausschließlich von KREIS ZEICHNEN 
verwendet. In diesem Unterprogramm können mit 
dem Handwerkszeug der Geometrie die Koordina¬ 
ten von Punkten, die sich auf der Peripherie des 
ersten Viertelkreises befinden, errechnet werden. 
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In J% befindet sich eine Gradangabe, zu der die 
entsprechenden Koordinaten (X2%, Y2%) ermittelt 
werden sollen. 
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6. Grafische Darstellung mathematischer 
Funktionen 


Erinnern Sie sich noch an Ihre Schulzeit? Wenn ja, dann ist 
Ihnen bestimmt auch noch eine Episode aus dem Mathematikun¬ 
torricht in der Erinnerung haften geblieben, die man überschrei¬ 
ben könnte mit: "Wer zeichnet den schönsten Eunktionsgraphen?" 
Wenn Sie sich nicht mehr an diese Zeit erinnern, dann lassen Sie 
sich einen Hauch Schüleralltag um die Nasen wehen. 

Ein bei Schülern wie Lehrern gleichsam beliebtes Gebiet der 
Mathematik ist die grafische Darstellung mathematischer Funk¬ 
tionen - bei den Schülern ist dieses Gebiet so beliebt, weil Ma¬ 
len viel schöner ist als Rechnen, und die Lehrer lieben die ge¬ 
zeichneten Funktionen so, weil sie auf diese Weise endlich die 
Sauberkeit der Schüler mit einer Note belegen können. Doch 
kltlren wir fern ab von allen Emotionen, die mit der Schulzeit 
verwoben sind, erst einmal die Grundlage für dieses Kapitel, die 
Funktion. 

Das Mathematikbuch definiert den Begriff der Funktion folgen¬ 
dermaßen 1 : "Wenn eine eindeutige Zuordnung zwischen den Ele¬ 
menten zweier Mengen A und B vorliegt, dann spricht man in 
der Mathematik von einer 'Funktion’. Zur Bezeichnung von 
Funktionen sind grundsätzlich alle Buchstaben zugelassen; häufig 
verwendet man jedoch den Buchstaben f, manchmal auch g, h, 
,,,usw. Ist durch eine Funktion f einem Element x aus A das 
Element y aus B zugeordnet, so nennt man y auch den ’Funkti- 
onswert von x' und bezeichnet diesen mit 'f(x)’, gelesen: ’f von 
x\ Die Variable x nennt man auch das 'Argument' der Funk¬ 
tion." 

Wem diese Definition kein Jota weitergeholfen hat, dem sei der 
Sachverhalt noch einmal anschaulicher, mit Hilfe eines Beispiels, 
vor Augen geführt. Gegeben ist als Definitionsbereich, also der 


i 


Quelle: Mathematik Sekundarstufe II Analysis Grundkurse Neu, 
Schwann, 1982, Seite 11 
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Menge A aus der Mathematikbuchdefinition, die Zahlenmenge 
{1;2;3;4;5}. Dieser Zahlenmenge werden nun eindeutig, durch die 
Funktionsgleichung f(x)=2*x Elemente des Wertebereiches B 
zugeordnet, wobei B. als die Menge der natürlichen Zahlen defi¬ 
niert ist. Zur Erinnerung: Die Menge der natürlichen Zahlen ist 
die Menge, die sich aus den Zahlen 1, 2, 3, ... bis unendlich 
zusammensetzt. 

Welche Zuordnungen sich nach der Funktionsgleichung ergeben, 
läßt sich recht anschaulich an einer Wertetabelle zeigen. Die 
Wertetabelle kann einfach dadurch gewonnen werden, daß für x 
nacheinander alle Elemente des Definitionsbereiches in die 
Funktionsgleichung eingesetzt werden und die Gleichung nach 
f(x) aufgelöst wird. Sowohl x als auch f(x) werden dann im Zu¬ 
sammenhang aufgelistet, das Ergebnis ist die Wertetabelle. 


X 

1 

2 

3 

4 

5 

f(x) 

2 

4 

6 

8 

10 


Um nun wieder den Bogen zur einleitenden Frage, "Wer zeichnet 
den schönsten Funktionsgraphen?", zu schlagen, sei ausgeführt, 
daß sich der gerade auf gezeigte mathematische Zusammenhang 
auch grafisch darstellen läßt. Um nicht zu tief in die Materie 
einzudringen, bleiben wir bei unserem Beispiel f(x)=2*x. 

Will man diesen Sachverhalt zeichnerisch erfassen, bedarf es im 
Grunde nur zweier Geraden, die aufeinander senkrecht stehen. 
Die beiden Geraden stellen Zahlenstrahle dar, von denen der 
waagerechte die Elemente der Definitionsmenge beherbergt, der 
senkrechte die des Wertebereiches. 

Die beiden Zahlenstrahle werden von ihrem Schnittpunkt aus in 
gleichen Abständen unterteilt. Diese Unterteilung beschriften 
wir nun wie folgt: Der waagerechte Strahl, auch X-Achse ge¬ 
nannt, vom Schnittpunkt, den wir mit Null bezeichnen, aus nach 
rechts mit 1, 2, 3, usw. Ebenso verfahren wir mit der zweiten 
Linie, nur daß hier von Schnittpunkt aus nach oben gezählt 
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wird. Die nun entstandene Zeichnung nennt man in der Mathe¬ 
matik "Das karthesische Koordinatensystem". 

In dieses Koordinatensystem wollen wir nun den Graphen unse¬ 
rer Funktion, also ihr gezeichnetes Abbild, einbringen. Nehmen 
wir das erste Element des Definitionsbereichs, die 1. Von der 
X-Achse, also dem Zahlenstrahl, der die Elemente des Werte¬ 
bereiches beherbergt, aus denken wir uns an der mit 1 bezeich¬ 
nten Stelle eine zur X-Achse senkrecht stehende Geraden. Aus 
der Wertetabelle wissen wir, daß der 1 aus der Definitionsmenge 
das Element 2 des Wertebereiches zugeordnet wird. Also auf der 
senkrechten Achse die mit 2 markierte Stelle gesucht und eine 
waagerechte Linie gedacht. Am Schnittpunkt der beiden ima¬ 
ginären Linien liegt ein Punkt, den wir markieren wollen. 

Sind wir in gleicher Weise mit allen fünf Elementen des Defini¬ 
tionsbereiches verfahren, so ergibt sich das Bild, das auf Abbil¬ 
dung 8 zu sehen ist. 



Abh, 8; 


Funktionsgraph der Funktion f(x)=2*x (x aus {1;2;3;4;5}) 
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Die fünf Punkte stellen die Zuordnung der Elemente des Defi¬ 
nitionsbereiches der Elemente des Wertebereiches in grafischer 
Form dar und werden deshalb als Funktionsgraph bezeichnet. 


6.1 Das Koordinatensystem 

Aus den vorangegangenen Betrachtungen über Funktionen und 
deren Darstellung wissen wir, daß ein Koordinatensystem 
Grundlage für die grafische Darstellung von mathematischen 
Funktionen ist. Deshalb soll der erste Schritt zum Zeichnen von 
Funktionsgraphen mit dem Computer - was das Ziel dieses Ka¬ 
pitels ist - das Erstellen eines geeigneten Koordinatensystems 
sein. 

Welche Anforderungen an ein Koordinatensystem zu stellen sind, 
in das hinein sich möglichst alle Funktionsgraphen zeichnen las¬ 
sen, erfährt man am einfachsten, wenn man sich die Vorge¬ 
hensweise eines Menschen veranschaulicht, der ein solches Sy¬ 
stem von Hand zeichnet. 

Ohne jede vorhergehende Überlegung lassen sich, für jedes 
Koordinatensystem gleich die beiden Achsen zeichnen. An das 
rechte Ende der X-Achse und an das obere Ende der f(x)-Achse 
(auch Y-Achse genannt) werden Pfeilspitzen gesetzt. Diese sollen 
andeuten, daß die gezeichneten Linien nur einen Ausschnitt den 
Zahlenstrahlen darstellen, sie sich aber bis unendlich fortsetzen. 
Beide Achsen können auch schon beschriftet werden, nämlich 
mit "x" bzw. "f(x)'\ Der nächste Schritt ist die Skalierung der 
Achsen, die beliebig, aber für beide gleich, vorgenommen wer¬ 
den kann. Soweit kann das Koordinatensystem für alle Funktio¬ 
nen als gleich angesehen werden. 

Damit die Skalierung beide Achsen nicht nur in kleinere Ein¬ 
heiten unterteilt, sondern die Einteilung durch eine Größen- 
ordung an Aussagekraft gewinnt, ist es notwendig, die Skalie¬ 
rung zu beschriften. Dazu werden einfach an einige der Eintei¬ 
lungen die Elemente des Definitionsbereiches (X-Achse) oder 
des Wertebereiches (Y-Achse) geschrieben, die an dieser Stelle 
des durch die Achse sysmbolisierten Zahlenstrahls liegen. Diese 
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Beschriftung kann erst dann sinnvoll vorgenommen werden, 
wenn bekannt ist, für welchen Definitionsbereich die Funktion 
gezeichnet werden soll. 

Generell beschriftet man die Einteilung so, daß der gewünschte 
Dofinitionsbereich möglich groß im Koordinatensystem zu sehen 
ist. Will man eine Funktion im Definitionsbereich von -6 bis 6 
betrachten, so würde man, bei zehn Einteilungen der Achsen 
vom Nullpunkt aus, die fünfte mit der Zahl "5"' beschriften. Die 
angestellten Überlegungen wurde in der Hardcopy 12 bereits 
verwirklicht. 
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llni’ kopy 12: Koordinatensystem zur Darstellung einer Funktion im 

Definitionsbereich -6 bis 6 


Das Programm mit dem die voranstehende Bildschirmausgabe 
erzeugt wurde, zeichnet die Achsen, skaliert und teilt sie ein. Es 
benötig von Benutzer lediglich zwei Angaben, bevor es seine 
Arbeit aufnehmen kann. Die erste Angabe ist die des Definiti- 
imsbereiches, die wir schon von unseren theoretischen Überle- 
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gungen her kennen. Die zweite Angabe muß ein Vergröße- 
rungsfaktor sein. Mit Hilfe des Vergrößerungsfaktors kann der 
zu betrachtende Definitionsbereich optimal in das Bildschirm¬ 
fenster eingepaßt werden. 

Zur Erzeugung von Hardcopy 12 wurde die Zahl 1 als Ver¬ 
größerungsfaktor angegeben, was einer Ausgabe im Maßstab 1 
zu 1 entspricht. Diese Maßstabsangabe ist geeignet, weil das 
Programm die X-Achse generell vom Nullpunkt aus in zehn 
Einheiten unterteilt und somit der Definitionsbereich -6 bis 6 
dargestellt werden kann. Möchte man aber einen Definitionsbe¬ 
reich von -1 bis 1 betrachten, so würde diese Bereich nur einen 
kleinen Teil auf dem Bildschirm in Anspruch nehmen. Die Ein¬ 
gabe des Vergrößerungsfaktors 10 vergrößert die Darstellung des 
gewünschten Definitionsbereichs auf das lOfache, so daß der 
Bildschirm nahezu ausgefüllt wird. 

Selbstverständlich kann auch eine Zahl kleiner als 1 Vergröße¬ 
rungsfaktor werden, nur mit dem Unterschied, daß die Darstel¬ 
lung auf dem Bildschirm dann schrumpft. So kann aber ein 
Definitionsbereich von beispielsweise -100 bis 100 immer noch 
auf dem Bildschirm sichtbar gemacht werden. 

Bei der Wahl des entsprechenden Vergrößerungsfaktors soll der 
Rahmen, der in das Koordinatensystem eingezeichnet wird be¬ 
hilflich sein (vgl. Hardcopy 12). Dieser Rahmen begrenzt den 
gewählten Definitionsbereich auf der X-Achse und teilt noch 
einmal ein entsprechendes Stück auf der Y-Achse ab. Ist der 
Rahmen nur als kleines Quadrat in der Mitte des Bildschirms 
sichtbar, so sollte eine größere Zahl als Vergrößerungsfaktor 
gewählt werden. Ist der Rahmen nicht sichtbar, so muß der 
Faktor verkleinert werden. 


100 MODE 1 

102 SYMBOL 255,8,8,28,28,62,62,127,8 
104 1 

106 'WELCHER BEREICH SOLL BETRACHTET WERDEN 
108 1 

110 INPUT "WELCHEN DEF.-BEREICH WUENSCHEN SIE^DEFI 
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112 INPUT "WELCHE VERGROESSERUNG WUENSCHEN SIE";FF 
114 FF=FF*30 
116 ' 

118 CLS 
120 1 

122 ‘KOORDINATENSYSTEM ZEICHNEN 
124 ' 

126 TAG 

128 ORIGIN 320,200 
130 < 

132 'X-ACHSE 
134 ' 

136 PLOT -320,0,1 
138 DRAU 320,0 
140 MOVER -16,6 
142 PRINT CHR$(246); 

144 MOVER -16,-16 
146 PRINT "x“; 

148 ■ 

150 'SKALIERUNG DER X-ACHSE 
152 1 

154 FOR I=-300 TO 300 STEP 30 

156 MOVE 1,4 

158 DRAW 1,-4 

160 NEXT I 

162 1 

164 'EINTEILUNG DER X-ACHSE 
166 ' 

168 MOVE 78,-8 

170 PRINT USING "####.##";150/FF; 

172 1 

174 'Y-ACHSE 
176 ' 

178 MOVE 0,-200 
180 DRAU 0,200 
182 MOVER -8,-2 
184 PRINT CHR$(255); 

186 MOVER -80,0 
188 PRINT 
190 • 
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192 'SKALIERUNG DER Y-ACHSE 
194 1 

196 FOR I = -1 SO TO 180 STEP 30 

198 MOVE 4,1 

200 DRAU -4,1 

202 NEXT I 

204 • 

206 ‘EINTEILUNG DER Y-ACHSE 
208 ■ 

210 MOVE -120,158 

212 PRINT USING "####.##"; 150/FF; 

214 ' 

216 TAGOFF 
218 ' 

220 'AUSSCHNITT KENNZEICHNEN 

222 • 

224 MOVE -DEFI*FF,-DEFI*FF 
226 DRAUR 2*DEFI*FF,0,2 
228 DRAUR 0,2*DEFI*FF 
230 DRAUR -2*DEFI*FF,0 
232 DRAUR 0,-2*DEFI*FF 


Programmbeschreibung: 

100-102 Nach dem Setzen von MODE 1 wird, da sich kein 
geeignetes Zeichen im Charaktergenerator befindet, 
unter der Zeichennummer 255 ein Pfeil nach oben 
definiert, der beim Zeichnen des Koordinatensy¬ 
stems Verwendung findet. 

104-118 Welcher Bereich soll betrachtet werden 

Dieser Programmteil erfragt vom Benutzer, wel¬ 
chen Definitionsbereich er gerne betrachten 
möchte, und mit welchem Vergrößerungsfaktor das 
Programm arbeiten soll. Der Vergrößerungsfaktor 
wird mit 30 multipliziert, um den Faktor an die 
Einteilung des Koordinatensystems anzupassen. 
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Sind beide Werte eingegeben, wird der Bildschirm 
zum Zeichnen des Koordinatensystems gelöscht 
(Zeile 118). 

120-128 Koordinatensystem zeichnen 

Als Vorbereitung für das Zeichnen des Ko¬ 
ordinatensystems wird die Anpassung der Textaus¬ 
gabe an den Grafikcursor (TAG) und der Koordi¬ 
natenursprung in die Mitte des Bildschirms gesetzt. 

130-146 X-Achse 

Der Programmteil X-ACHSE zeichnet mit dem 
Farbstift 1 in die Mitte des Bildschirms eine 
waagerechten Linie. An das rechte Ende der Linie 
wird eine Pfeilspitze und die Bezeichnung "x" ge¬ 
setzt. Diese Linie stellt die X-Achse des recht¬ 
winkligen Koordinatensystems dar. 

148-160 Skalierung der X-Achse 

Die gezeichnete X-Achse wird in Abstand von 30 
Bildpunkten durch kleine senkrechte Striche un¬ 
terteilt. 

162-170 Einteilung der X-Achse 

Unter Einbeziehung des Vergrößerungsfaktors FF 
wird an den fünften Skalierungsstrich, auf dem 
positiven Teil der X-Achse, der Wert geschrieben, 
der ihm auf dem Koordinatensystem entspricht. 

172-188 Y-Achse 

Der Programmteil Y-ACHSE zeichnet in die Mitte 
des Bildschirms eine senkrechte Linie. An das 
obere Ende der Linie wird die Pfeilspitze, die un¬ 
ter Zeichennummer 255 definiert wurde, und die 
Bezeichnung "f(x)" gesetzt. Diese senkrechte Linie 
stellt die Y-Achse des Koordinatensystems dar. 
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190-202 Skalierung der Y-Achse 

Die gezeichnete Y-Achse wird in Abstand von 30 
Bildpunkten durch kleine waagerechte Striche un¬ 
terteilt. 

204-216 Einteilung der Y-Achse 

Unter Einbeziehung des Vergrößerungsfaktors FF 
wird an den fünften Skalierungsstrich, auf dem 
positiven Teil der Y-Achse, der Wert geschrieben, 
der ihm auf dem Koordinatensystem entspricht. 

Nachdem das Koordinatensystem vollständig ge¬ 
zeichnet, skaliert und beschriftet ist, wird die 
Textausgabe wieder an die Position des Textcursors 
geleitet (TAGOFF). 

218-232 Ausschnitt kennzeichnen 

Mit Farbstift 2 wird der Ausschnitt des Koodina- 
tensystems durch einen Rahmen markiert, der vom 
Benutzer für die Ausgabe bestimmt wurde. Die 
Eckpunkte des Rahmens ergeben sich durch Spie¬ 
geln des für DEFI eingegebenen Wertes, mulitipli- 
ziert mit dem Vergrößerungsfaktor FF, in alle vier 
Quadranten des Koordinatensystems. 


6.2 Lineare Funktionen 

Sie erinnern sich doch noch an Abbildung 6, den Funktions¬ 
graph der Funktion f(x)=2*x (x aus {1,2,3,4,5}). An diesem 
Funktionsgraphen haben wir Ihnen die Darstellung mathemati¬ 
scher Funktionen im karthesischen Koordinatensystem nahege¬ 
bracht. Da es unser Ziel ist, Funktionsgraphen mit dem Schnei- 
der-CPC zu zeichnen, wollen wir mit dieser Funktion, deren 
Abbild Sie ja schon kennen, einen ersten Versuch unternehmen. 

Grundlage für das Zeichnen des Funktionsgraphen ist das Pro¬ 
gramm zum Zeichnen eines Koordinatensystems aus Kapitel 6.1. 
An dieses Programm sollen einige Zeilen angefügt werden, die 
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den Graphen der Funktion f(x)=2*x auf dem Bildschirm er¬ 
scheinen lassen. 

Nachdem das Koordinatensystem sich bereits auf dem Bild¬ 
schirm befindet, obliegt den zu ergänzenden Programmzeilen nur 
noch das Zeichnen der Funktion. Da die Funktion als Definiti¬ 
onsbereich nur fünf Elemente, nämlich 1, 2, 3, 4, 5, besitzt, 
lassen sich alle Elemete des Definitionsbereichs einfach mit einer 
KOR-TO-NEXT-Schleife erzeugen. Diese Schleife hat von 1 bis 
5 genau fünf Durchläufe, und der Schleifenindex nimmt nach¬ 
einander die Werte aller Elemente des Definitionsbereichs an. 

Zu den Werten des Definitionsbereiches können die Werte des 
Wertebereiches über die Zuordnungsvorschrift der Funktions¬ 
gleichung gefunden werden. 

Um schließlich den Graphen der Funktion im gleichen Maßstab 
wie das Koordinatensystem entstehen zu lassen, müssen die X- 
Werte des Definitionsbereiches und die Y-Werten des Werte- 
bcreiches mit dem Vergrößerungsfaktor FF mulitipliziert wer¬ 
den. 


236 'FUNKTION f<x)=2*x (x AUS 0/2,3,4,53) ZEICHNEN 
238 ' 

240 FOR X=1 TO 5 
242 Y=2*X 

244 PLOT X*FF,Y*FF 
246 NEXT X 


Wurden die voranstehenden Programmzeilen zum Programm aus 
Kapitel 6.1 hinzugefügt, so erzeugt das Gesamtprogramm die 
Uildschirmausgabe, die durch Hardcopy 13 wiedergegeben wird. 
Zur Angabe des Definitionsbereichs wurde die Zahl 5 und als 
Vergrößerungsfaktor 0,5 eingegeben, um den Funktionsgraphen 
vollständig sichtbar auf dem Bildschirm zu haben. 
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Hardcopy 13: Graph der Funktion f(x)=2*x (x aus {1;2;3;4;5}) 

Definitionsbereich 5 Vergrößerungefaktor 0,5 


Der vorgestellte Programmteil liefert für den Spezialfall, daß die 
Funktion für eine begrenzte Anzahl von Argumenten definiert 
ist, den Funktionsgraphen, versagt aber gänzlich, wenn die 
Funktion für den Definitionsbereich aller rationalen Zahlen ge¬ 
zeichnet werden soll. Die rationalen Zahlen haben nämlich die 
Eigenschaft, daß zwischen zwei dieser Zahlen immer eine dritte 
existiert und es so unmöglich ist, alle Elemente des Definitions¬ 
bereiches, wie im oben stehenden Beispiel, mit einer Schleife zu 
generieren. 

Wir suchen also nach einem Verfahren, wie der Graph der 
Funktion f(x)=2*x, definiert für alle x aus der Menge der ratio¬ 
nalen Zahlen, gezeichnet werden kann. Dabei können wir uns 
eine Eigenschaft dieser Funktion zunutze machen - die Funktion 
f(x)=2*x fällt unter die Gruppe der linearen Funktionen. 

Lineare Funktionen haben immer eine Gerade als Funktions¬ 
graphen. Eine Gerade hat die Eigenschaft, wie aus der Geome- 
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trie bekannt sein dürte, daß sie durch zwei Punkte, die auf ihr 
liegen, eindeutig bestimmt wird. Das heißt, eine Gerade läßt 
sich immer zeichnerisch darstellen, wenn man zwei Punkte, die 
auf ihr liegen, miteinander verbindet und sich die entstehende 
Linie in die Unendlichkeit verlängert vorstellt. 

Diese Eigenschaft der linearen Funktionen kann man sich bei 
erzeugen ihrer Graphen mit dem Computer zu Nutze machen. 
Man ermittelt einfach die Funktionswerte am unteren und obe¬ 
ren Ende des Definitionsbereichs und hat so die Koordinaten 
zweier Punkte. Die Punkte zu verbinden ist für den Computer 
ein leichtes. 

Dio Ergänzung, die sich zum Programm in Kapitel 6.1 ergibt, 
und mit der der Graph der Funktion f(x)=2*x für einen beliebi¬ 
gen Definitionsbereich gezeichnet werden kann, ist im folgenden 
tuif gelistet. 


236 1 FUNKTION f(x)=2*x ZEICHNEN 
238 ■ 

240 X=-DEFI 
242 Y=2*X 

244 HOVE X*FF,Y*FF 
246 1 

248 X=DEFI 
250 Y=2*X 

252 DRAU X*FF,Y*FF 


Die Hardcopy 14 zeigt, daß sich mit dem Verfahren, aus zwei 
Punkte auf dem Funktionsgraphen auf den gesamten Graphen zu 
schließen, bewährt hat. Durch Austauschen der Funktionsglei¬ 
chung in den Zeilen 242 und 250 kann selbstverständlich auch 
jede andere Funktion dargestellt werden - vorausgesetzt, es han¬ 
delt sich um eine lineare Funktion. 


218 


Das eroße Grafikbuch zum CPC 



Hardcopy 14: Graph der Funktion f(x)=2*x 

Definitionsbereich 5 Vergrößerungsfaktor 0,5 


Eine Art von Funktionen, bei denen das gerade eingeführte 
Verfahren nicht mehr zum Funktionsgraphen führt, soll im fol¬ 
genden Kapitel vorgestellt werden. 


6.3 Quadratische Funktionen 

Grundsätzlich jede Funktion, die nicht unter die Definition ei¬ 
ner linearen Funktion fällt, läßt das am Ende von Kapitel 6.2 
vorgestellte Verfahren zum Zeichnen von Funktionsgraphen 
versagen. Dies liegt ganz offensichtlich an der Tatsache, daß der 
Graph dieser Funktionen eben keine Gerade ist und so auch 
nicht eindeutig durch zwei Punkte bestimmt werden kann. Ein 
Beispiel für eine Funktion dieser Art ist die quadratische Funk¬ 
tion. 

Quadratische Funktionen, die ihren Namen vom Potenzieren des 
Arguments mit zwei beziehen, haben immer das grafische Ab- 
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bild einer Parabel. Eine Parabel kann man sich als eine Art 
Hufeisen vorstellen, dessen Schenkel ein wenig nach außen ge¬ 
bogen sind und sich in die Unendlichkeit fortsetzen. Schon von 
der Anschauung her ist dieser Funktionsgraph vollkommen an¬ 
ders als der einer linearen Funktion. 

Um der Graphen einer quadratischen Funktion, die über die 
Menge der rationalen Zahlen definiert ist, zeichnen zu können, 
muß man einen Kompromiß eingehen. Einen Kompromiß des¬ 
halb, weil es vollkommen unmöglich ist, alle Elemente des Defi¬ 
nitionsbereiches zum Zeichnen des Funktionsgraphen 
horanzuziehen, sieht man, wie die Menge der rationalen Zahlen 
definiert ist. Der Kompromiß sieht konkret so aus, daß man in 
gleichmäßigen Abständen Elemente des Definitionsbereiches 
herausgreift, zu ihnen die Funktionswerte ermittelt und den 
Graphen zeichnet. Das Ergebnis dieser Verfahrensweise erinnert 
Hehr stark an die Darstellung der Funktion f(x)=2*x für x aus 
(l;2;3;4;5}, da das Prinzip, den Funktionsgraphen zu erstellen, 
indentisch ist. Nur mit dem Unterschied, daß im Fall der linaren 
Funktion, definiert für fünf Argumente, der gezeichnete 
Funktionsgraph den Tatsachen entsprach, bei der quadratischen 
Funktion aber nur eine Näherung darstellt. 

Die unten abgedruckte Ergänzung zum Koordinatensystempro¬ 
gramm ermittelt im Abstand von 0,1 Einteilungseinheiten einen 
Funktionswert und zeichnet damit den Graphen der Funktion 
f(x)-x*x, den man in der Mathematik als Normalparabel be¬ 
zeichnet. 


236 'FUNKTION f(x)=x*x ZEICHNEN 
238 ' 

240 FOR X=-0EFI TO DEFI STEP 0.1 
242 Y=X*X 

244 PLOT X*FF,Y*FF 
246 NEXT X 
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Das mit diesem Programm erstellte Abbild der Funktion 
f(x)=x*x für den Definitionsbereich -2 bis 2 und einer Ver¬ 
größerung von 1 zu 4 (Vergrößerungsfaktor=4) ist in Hardcopy 
15 wiedergegeben. 



Hardcopy 15: Graph der Funktion f(x)=x*x 

Definitionsbereich 2 Vergrößerungsfaktor 4 

Durch Verringern der Schrittweite in Zeile 240 der 
Programmergänzung läßt sich der Abstand der einzelnen Punkte, 
die den Funktionsgraphen ausmachen, praktisch beliebig 
verringern. Damit kann zum einen ein äußerst genaues Bild der 
Funktion gewonnen werden, und zum anderen macht sich der 
Kompromiß, nicht alle Elemente des Definitionsbereiches beim 
Zeichnen zu berücksichtigen, nicht mehr bemerkbar. Doch auch 
diese Methode hat einen entscheidenden Nachteil. Je geringer 
der Punktabstand gewählt wird, desto mehr Funktionswerte 
müssen berechnet werden und die Verarbeitungsgeschwindigkeit 
des Programms sinkt schnell auf ein nicht mehr erträgliches Maß 
ab. 
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Abhilfe schafft hier die Verknüpfung der Verfahren, einzelne 
Punkte zu berechnen und zwei Punkte miteinander durch eine 
l.inie zu verbinden. Beide Verfahren isoliert sind schon bekannt, 
doch die Fusion beider führt zum Zeichnen beliebiger Funktio¬ 
nen mit beliebiger Genaugigkeit. Wobei sich die Genauigkeit aus 
der Anzahl der berechneten Funktionswerte ergibt und so kon- 
trür zur Verarbeitungsgeschwindigkeit steht. 


236 'FUNKTION f(x)=x*x ZEICHNEN 
238 1 

240 X=-DEFI 
242 Y=X*X 

244 PLOT X*FF,Y*FF 
246 1 

248 FOR X=-DEFI TO DEF1 STEP 0.1 
250 Y=X*X 

252 DRAU X*FF,Y*FF 
254 NEXT X 


Die Funktionsweise des Programms ist denkbar einfach: Am un¬ 
teren Ende des Definitionsbereichs wird der Funktionswert er¬ 
mittelt. Er dient als Startpunkt für das Ziehen der ersten Linie. 
Dann werden innerhalb einer FOR-TO-NEXT-Schleife, im Ab¬ 
stand der eingegebenen Schrittweite, alle weiteren Funktions¬ 
werte bis zum oberen Ende des Definitionsbereichs errechnet. 
Jedesmal wenn ein neuer Funktionswert ermittelt worden ist, 
wird durch Multiplikation mit dem Vergrößerungsfaktor seine 
Position auf dem Bildschirm bestimmt und eine Linie dorthin 
gezogen. 

Das Ergebnis, die Normalparabel, sieht bei gleichem 
Definitionsbereich und gleichem Vergrößerungsfaktor wie bei 
Hardcopy 15 schon so gut aus, daß keine Verbesserung mehr 
ttnzubringen ist. 




1.25 


x 


Hardcopy 16: Graph der Funktion f(x)=x*x 

Definitionebereich 2 Vergrößerungsfaktor 4 


6.4 Der Funktionsplotter 

Alle Erkenntnisse, die wir auf den vorangegangenen Seiten die¬ 
ses Kapitels zusammengetragen haben, sollen nun in ein voll¬ 
ständiges Anwendungprogramm einfließen, den "Funktionsplot¬ 
ter". Mit diesem Programm soll es möglich sein, beliebige Funk¬ 
tionen mit beliebiger Genauigkeit auf dem Bildschirm darzu¬ 
stellen, wobei neben dem zu betrachtenden Definitionsbereich 
und der verwendeten Vergrößerung auch die Abstände, die zwi¬ 
schen den einzelnen berechneten Funktionswerten liegen, frei 
wählbar ist. Diese zusätzliche Option macht es möglich, sich mit 
dem Programm einen schnellen Überblick über den ungefähren 
Verlauf des Funktionsgraphen zu machen, aber auch die Funk¬ 
tion mit maximal auf dem Bildschirm darstellbarer Auflösung zu 
zeichnen. 

Folgende Bemerkung muß an den Anfang der Betrachtung des 
Funktionsplotters gestellt werden: Ganz zu Anfang des Funkti- 
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onsplotters steht ein Unterprogramm, das die Funktionsgleichung 
enthält. Dieser Platz innerhalb des Programms wurde gewählt, 
damit die Funktionsgleichung - soll sie durch eine andere ersetzt 
werden - schnell aufgefunden werden kann. Vor dem Starten 
dos Programms muß in Zeile 104 die Funktionsgleichung einge¬ 
tragen werden, deren Graph mit dem Programm erstellt werden 
soll. Bei der Funktionsgleichung muß immer die Form gewahrt 
sein, daß die Variable X des Argument der Funktion und Y der 
Funktionswert von X ist, da der Funktionsplötter anderenfalls 
nicht funktionieren kann. 

Bedingt durch das Unterprogramm am Anfang des Funktions¬ 
plotters tritt beim Versuch, das Programm durch "RUN" zu star¬ 
ten, die Fehlermeldung "Unexpected RETURN in 108" auf. Wie 
Im Listing angemerkt, muß der Funktionsplotter mit "RUN 112" 
gestartet werden, wodurch die Zeilen vor 112 ihre Bedeutung 
verlieren. 

Nachdem das Programm ordnungsgemäß gestartet wurde und 
den Programmkopf aufgebaut hat, erfragt es vom Benutzer drei 
Angaben: 

1. Welcher Deftnitionsbereich 

2. Welcher Vergrößerungsfaktor 

3. Grad der Feinheit 


Die ersten beiden Angaben werden Ihnen - vorausgesetzt Sie 
haben das Kapitel bis hierhin aufmerksam verfolgt - sicher kei¬ 
nerlei Schwierigkeiten bereiten. Die dritte Angabe ist nichts 
anderes als der Abstand zwischen den Punkten, die berechnet 
werden. Diese Angabe sollten Sie unter Berücksichtigung des 
gewählten Vergrößerungsfaktors immer so wählen, daß bei der 
Darstellung der Funktion jeder Bildpunkt berechnet wird, der 
für den Funktionsgraphen von Bedeutung ist. Eine Auflösung, 
die über die auf dem Bildschirm darstellbare hinausgeht, ist 
nicht mehr sinnvoll, da sie das Ergebnis auch nicht verbessert. 
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Hat der Funktionsplotter vom Benutzer die nötigen Angaben er¬ 
halten, so löscht das Programm den Bildschirm und beginnt in 
MODE 1 mit dem Zeichnen, Skalieren und Beschriften des Ko¬ 
ordinatensystems. In das Koordinatensystem wird in bekannter 
Weise der Rahmen gezeichnet, der den gewählten Auschnitt 
kennzeichnet. 

Ist soweit alles vorbereitet, beginnt der Funktionsplotter mit der 
Berechnung der Funktionswerte. Dabei wird mit roten Punkten 
auf der X-Achse angezeigt, an welcher Stelle das Programm 
gerade die zugehörigen Funktionswerte ermittelt. An dieser 
Anzeige läßt sich aber nicht nur die Position ablesen, an der 
gerade zu den Werten des Definitionsbereichs Elemente des 
Wertebereichs ermittelt werden, sondern sie zeigt auch, ob der 
Grad der Feinheit richtig gewählt wurde. Bleiben beim Zeichnen 
der Funktion zwischen den Punkten des Indikators noch Stellen 
der X-Achse frei, so ist die maximal darstellbare Feinheit noch 
nicht erreicht. Ebenso ist mit den roten Punkten auf der X- 
Achse ein Herantasten an das maximale Auflösungsvermögen 
von der anderen Seite her möglich - so kann, wird die Funktion 
zu langsam gezeichnet, was ein untrügliches Merkmal für über¬ 
trieben hohe Auflösung ist, der Grad der Feinheit gröber 
gewählt werden. Die roten Punkte zeigen an, ob die Auflösung 
stimmt. 

Doch damit der Hinweise nicht genug, die der Indikator auf der 
X-Achse dem Benutzer gibt. Da das Band immer am unteren 
Ende des Definitionsbereiches seine Arbeit beginnt und am 
oberen damit endet, zeigt er durch ein Erreichen der oberen 
Begrenzung an, daß die Funktion fertig gezeichnet ist. Auch 
wenn auf dem Bildschirm kein Funktionsgraph zu erblicken ist. 
Der Benutzer hat dann lediglich den falschen Betrachtungsaus¬ 
schnitt gewählt. 

Die Arbeit des Funktionsplotters läßt sich grundsätzlich immer 
durch das Betätigen einer beliebigen Taste unterbrechen, was das 
Programm zur Frage nach dem Definitionsbereich zurückkehren 
läßt. An dieselbe Stelle kehrt das Programm auch zurück, nach¬ 
dem die Funktion gezeichnet und eine Taste gedrückt wurde. 
Von sich aus zerstört das Programm die erstellte Grafik nie, 
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sondern stellt sie dem Anwender zur ungestörten Betrachtung 
zur Verfügung, bis der seine Betrachtungen durch einen Tasten¬ 
druck als beendet anzeigt. 

Sollten Sie während eine Funktion gezeichnet wird, aus dem 
Lautsprecher Ihres CPCs einen Ton vernehmen, so deutet das 
an, daß die Ermittlung eines Funktionswertes zu einem Ergebnis 
geführt hat, welches für den Computer nicht mehr darstellbar 
ist. Die Fehlermeldung führt zwar nicht zum Abbruch des Pro¬ 
gramms, sollte Ihnen aber signalisieren, daß mit dem entstehen¬ 
den Funktionsgraphen etwas nicht in Ordnung ist. 

bevor wir Sie in das Abtippen des Programmlistings entlassen, 
wollen wir Ihnen noch zwei Funktionsgraphen präsentieren, 
zusammen mit den Gleichungen und Angaben, die zu ihrer Ent¬ 
stehung geführt haben. Mit diesen beiden Funktionen können 
Sie sogleich das ordnungsgemäße Arbeiten Ihres Funktionsplot¬ 
ters überprüfen. 



Ilmtl rnpy 17: 


Graph der Funktion f(x)=2"x Definitionsbereich 4 
Vergrößerungsfaktor 1 Grad der Feinheit 0,01 
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Hardcopy 18: Graph der Funktion f(x)=ABS(SIN(X)) Defmitionsbereich 4 

Vergrößerungsfaktor 2 Grad der Feinheit 0,01 


100 'ACHTUNG! DER FUNKTIONSPLOTTER MUSS MIT 'RUN 112' GESTARTET WE 
RDEN, DENN HIER STEHT DIE FUNKT IONSGLEICHUNG 
102 ' 

104 Y=C0S(X) 

106 • 

108 RETURN 
110 ' 

112 80RDER 0 
114 INK 0,0 
116 INK 1,26 
118 INK 2,6 
120 INK 3,11 
122 * 

124 SYMBOL 255,8,8,28,28,62,62,127,8 
126 ' 

128 ON ERROR GOTO 340 
130 ' 

132 'PROGRAMMKOPF AUSGEBEN 
134 • 
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136 MODE 2 
138 ORIGIN 0,0 
140 1 

142 LOCATE 32,3 

144 PRINT "FUNKTIONSPLOTTER" 

146 LOCATE 33,4 

148 PRINT "JST 1.10.1986" 

150 ' 

152 PLOT 16,383,1 
154 DRAW 16,320 
156 DRAW 623,320 
158 DRAW 623,383 
160 DRAU 16,383 
162 ' 

164 'WELCHER BEREICH SOLL BETRACHTET WERDEN 
166 1 

168 LOCATE 5,10 

170 INPUT "WELCHEN DEFINITIONSBEREICH WUENSCHEN SIE";DEFI 
172 LOCATE 5,10 

174 INPUT "WELCHEN VERGROESSERUNGSFAKTOR WUENSCHEN SIE";FF 
176 FF=FF*30 
178 LOCATE 5,10 

180 INPUT "BESTIMMEN SIE FUER DAS ZEICHNEN DEN GRAD DER FEINHEIT"; 
FH 

182 1 

184 'KOORDINATENSYSTEM ZEICHNEN 
186 1 

188 MODE 1 
190 TAG 

192 ORIGIN 320,200 
194 1 

196 'X-ACHSE 
198 ' 

200 PLOT -320,0,1 
202 DRAW 320,0 
204 MOVER -16,6 
206 PRINT CHR$(246); 

208 MOVER -16,-16 
210 PRINT "x"; 

212 ' 
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214 ‘SKALIERUNG DER X-ACHSE 
216 1 

218 FOR I=-300 TO 300 STEP 30 
220 MOVE 1,4 
222 DRAW 1,-4 
224 NEXT I 
226 ' 

228 ‘EINTEILUNG DER X-ACHSE 
230 • 

232 MOVE 78,-8 

234 PRINT USING 150/FF; 

236 ' 

238 'Y-ACHSE 
240 ■ 

242 MOVE 0,-200 
244 DRAU 0,200 
246 MOVER -8,-2 
248 PRINT CHRS(255); 

250 MOVER -80,0 
252 PRINT 
254 ' 

256 'SKALIERUNG DER Y-ACHSE 
258 > 

260 FOR I=-180 TO 180 STEP 30 

262 MOVE 4,1 

264 DRAU -4,1 

266 NEXT I 

268 ■ 

270 'EINTEILUNG DER Y-ACHSE 
272 ' 

274 MOVE -120,158 

276 PRINT USING ■'####.##"; 150/FF; 

278 ' 

280 TAGOFF 
282 • 

284 'AUSSCHNITT KENNZEICHNEN 
286 ' 

288 MOVE -DEF!*FF,-DEFI*FF 
290 DRAUR 2*DEFI*FF,0,2 
292 DRAWR 0,2*DEFI*FF 
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294 DRAUR -2*DEFI*FF,0 
296 DRAUR 0,-2*DEFI*FF 
298 ' 

300 1 FUNKTIONSGRAPH ZEICHNEN 
302 1 

304 X=-DEFI 
306 GOSUB 104 
308 PLOT X*FF,Y*FF,3 
310 ' 

312 FOR X=-DEFI TO DEFI STEP FH 

314 GOSUB 104 

316 DRAU X*FF,Y*FF,3 

318 1 

320 PLOT X*FF,0,2 
322 MOVE X*FF,Y*FF 
324 • 

326 IF INKEYJo"" THEN 336 
328 ' 

330 NEXT X 
332 ' 

334 IF INtCEY$="" GOTO 334 
336 CLS 
338 GOTO 130 
340 • 

342 'FEHLERBEHANDLUNG 
344 1 

346 TAGOFF 

348 PRINT CHR$(7); 

350 TAG 
352 • 

354 RESUME NEXT 


Programmbeschreibung: 

100-108 Ganz zu Anfang des Funktionsplotters steht ein 
Unterprogramm, das die Funktionsgleichung ent¬ 
hält. Dieser Platz innerhalb des Programms wurde 
gewählt, damit die Funktionsgleichung - soll sie 
durch eine andere ersetzt werden - schnell auf ge- 
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funden werden kann. Bei Start des Funktionsplotter 
durch "RUN" tritt die Fehlermeldung "Unexpected 
RETURN in 108" auf; Das Programm muß also 
wie im Listing angemerkt mit "RUN 112" gestartet 
werden. 

112-128 Die Rahmenfarbe und die Farben für die Stifte 0 
bis 3 werden gesetzt. Da sich kein geeignetes Zei¬ 
chen im Charaktergenerator befindet, wird unter 
der Zeichennummer 255 ein Pfeil nach oben defi¬ 
niert, der beim Zeichnen des Koordinatensystems 
Verwendung finden wird. 

Bei den Berechnungen, die während der Arbeit des 
Funktionsplotter anfallen, kann nicht ausgeschlos¬ 
sen werden, daß es zu Fehlern (z.B. Bereichsüber¬ 
schreitung) kommt. Damit diese Fehler nicht zum 
Abbruch des Programms durch Fehlermeldung 
führen, wird mit ON ERROR GOTO festgelegt, 
was im Falle eines Fehlers zu tun ist. 

130-160 Programmkopf ausgeben 

Nach dem Setzen von MODE 2 und Koordi¬ 
natenursprung wird der Name des Programms und 
die Eignerkennung auf den Bildschirm gebracht. 
Um diese Ausgaben wird ein Rahmen gezeichnet. 

162-180 Welcher Bereich soll betrachtet werden 

Dieser Programmteil erfragt vom Benutzer, wel¬ 
chen Definitionsbereich der Funktion er gerne be¬ 
trachten möchte, mit welchem Vergrößerungsfaktor 
das Programm arbeiten und mit welcher Schritt¬ 
weite der Funktionsgraph gezeichnet werden soll, 
was sich durch die Eingabe von FH ergibt. Alle 
Angaben können unmittelbar vom Programm ver¬ 
wertet werden, nur der Vergrößerungsfaktor wird 
mit 30 multipliziert, um das Zeichnen der Funk¬ 
tion an die Einteilung des Koordinatensystems an¬ 
zupassen. 


fische Darstellung mathematischer Funktionen 


182-192 Koordinatensystem zeichnen 

Als Vorbereitung für das Zeichnen des Ko¬ 
ordinatensystems wird MODE 1, die Anpassung 
der Textausgabe an den Grafikcursor (TAG) und 
der Koordinatenursprung in die Mitte des Bild¬ 
schirms gesetzt. 

194-210 X-Achse 

Der Programmteil X-ACHSE zeichnet mit dem 
Farbstift 1 in die Mitte des Bildschirms eine 
waagerechten Linie. An das rechte Ende der Linie 
wird eine Pfeilspitze und die Bezeichnung "x" ge¬ 
setzt. Diese Linie stellt die X-Achse des recht¬ 
winkligen Koordinatensystems dar. 

212-224 Skalierung der X-Achse 

Die gezeichnete X-Achse wird in Abstand von 30 
Bildpunkten durch kleine senkrechte Striche un¬ 
terteilt. 

226-234 Einteilung der X-Achse 

Unter Einbeziehung des Vergrößerungsfaktors FF 
wird an den fünften Skalierungsstrich, auf dem 
positiven Teil der X-Achse, der Wert geschrieben, 
der ihm auf dem Koordinatensystem entspricht. 

236-252 Y-Achse 

Der Programmteil Y-ACHSE zeichnet in die Mitte 
des Bildschirms eine senkrechte Linie. An das 
obere Ende der Linie wird die Pfeilspitze, die un¬ 
ter Zeichennummer 255 definiert wurde, und die 
Bezeichnung ”f(x)" gesetzt. Diese senkrechte Linie 
stellt die Y-Achse des Koordinatensystems dar. 

254-266 Skalierung der Y-Achse 

Die gezeichnete Y-Achse wird in Abstand von 30 
Bildpunkten durch kleine waagerechte Striche un¬ 
terteilt. 
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268-280 Einteilung der Y-Achse 

Unter Einbeziehung des Vergrößerungsfaktors FF 
wird an den fünften Skalierungsstrich, auf dem 
positiven Teil der Y-Achse, der Wert geschrieben, 
der ihm auf dem Koordinatensystem entspricht. 

Nachdem das Koordinatensystem vollständig ge¬ 
zeichnet, skaliert und beschriftet ist, wird die 
Textausgabe wieder an die Position des Textcursors 
geleitet (TAGOFF). 

282-296 Ausschnitt kennzeichnen 

Mit Farbstift 2 wird der Ausschnitt des Koodina- 
tensystems durch einen Rahmen markiert, der vom 
Benutzer für die Ausgabe bestimmt wurde. Die 
Eckpunkte des Rahmens ergeben sich durch Spie¬ 
geln des für DEFI eingegebenen Wertes, mulitipli- 
ziert mit dem Vergrößerungsfaktor FF, in alle vier 
Quadranten des Koordinatensystems. 

298-338 Funktionsgraph zeichnen 

Da der Funktionsgraph, um immer einen ge¬ 
schlossenen Linienzug zu erhalten, nicht mit dem 
BASIC-Kommando PLOT, sondern mit DRAW er¬ 
stellt wird, muß der Startpunkt für die erste Linie 
ermittelt werden. Dies und das Positionieren des 
Grafikcursor sowie das Auswählen des Zeichen¬ 
stiftes 3 wird in den Zeilen 304 bis 308 vollzogen. 

Der Funktiongraph wird in der FOR-TO-NEXT- 
Schleife von Zeile 312 bis 330 gezeichnet. Die 
Schleife läuft vom negativen bis zum positiven 
Ende des Definitionsbereiches, wobei sich die 
Schrittweite durch die Variable FH, die zu Beginn 
des Programms erfragt wurde, bestimmt. Während 
des gesamten Zeichenvorgangs wird überwacht, ob 
eine Taste betätigt wird, was zum Abbruch des 
Zeichnens und zur Verzweigung an den Anfang 
des Programms führt. 
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Den Zeilen 320 und 322 in der FOR-TO-NEXT- 
Schleife kommt die Bedeutung zu, anzuzeigen, an 
welcher Stelle des Definitionsbereichs der Funkti¬ 
onsplotter gerade die zugehörigen Werte berechnet. 
Dieses Hilfsmittel schiebt sich, in Gestalt einer 
Reihe von roten Punkten, vom negativen Ende des 
Definitionsbereiches zum positiven auf der X- 
Achse entlang. 

Nach dem Durchlaufen der FOR-TO-NEXT- 
Schleife bleibt die erstellte Grafik, bis zum Betäti¬ 
gen einer Taste auf dem Bildschirm erhalten. Wird 
eine Taste niedergedrückt, so löscht das Programm 
den Bildschirm und springt zurück nach Zeile 130, 
wo andere Angaben zum Zeichnen des 
Funktionsgraphen gemacht werden können. 

340-Ende Fehlerbehandlung 

Tritt im Verlauf der Berechnung der Funkti¬ 
onswerte ein Fehler auf (Bereichsüberschreitung), 
so verzweigt das Programm automatisch an diese 
Stelle, gibt einen Warnton aus und fährt mit den 
nächsten Wert fort. 
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7. 3-D-Vektorgrafik 


Sicher erinnern sich noch viele von Ihnen an den Science-Fic- 
lion-Film "Krieg der Sterne". Viele Kinobesucher waren von den 
dort gezeigten, dreidimensionalen Computergrafiken fasziniert, 
die George Lucas 1977 in Zusammenarbeit mit dem heutigen 
Spezialeffekt-Giganten "Industrial Light and Magic" auf dem 
Bildschirm gezaubert hatte. Die meisten Grafiken, die damals 
Uber die Leinwände flimmerten, wurden mit einer Technik er¬ 
zeugt, die sich der vektoriellen Darstellung bedient. Die so er¬ 
stellten Computerbilder bestehen ausschließlich aus einer Viel¬ 
zahl von Linien, die die Umrisse eines Körpers symbolisieren. 
Das Ergebnis einer derartigen Darstellung ist ein Drahtgerüst, 
das in der Fachsprache auch Wire-Frame genannt wird. 

Aber wie lassen sich derartige Wire-Frames berechnen? Nun - 
die vektorielle Darstellung bedient sich - wie der Name schon 
vtM-muten läßt - sogenannter Vektoren. Ein Vektor ist eine ge¬ 
richtete, orientierte Strecke im Raum. Man kann ihn auch als 
unsichtbaren Pfeil bezeichnen, der auf einen beliebigen Punkt in 
einem imaginären Universum zeigt. Und genau diese Eigenschaft 
machen sich viele Programmierer bei der Entwicklung einer 3- 
D-Grafik zunutze. Das durch die Vektoren erzeugte Wire-Frame 
Ist nämlich die Basis für jede dreidimensional mathematisch 
definierte Animation. Selbst ein komplexes Vollflächenmodell ist 
die konsequente Weiterentwicklung eines, mittels Vektor-Tech¬ 
nik generierten, Drahtgerüstes. 

Heute bedient man sich in Werbung, Film und Wissenschaft 
verstärkt der dreidimensional animierten Grafik. In den USA 
gibt es inzwischen spezielle Grafikstudios, die sich auf die Her¬ 
stellung derartiger Computerfilme spezialisiert haben. Mit 
gigantischen Rechenanlagen und einer Grafikauflösung von 
durchschnittlich 1024 mal 1024 Punkten entstehen dort Bilder, 
die oft unser Vorstellungsvermögen sprengen. Die von diesen 
Computern generierten Sequenzen bestechen immer wieder 
durch ihren nahezu unglaublichen Realismus und Perfektionis¬ 
mus. Von einem dieser amerikanischen Grafikstudios stammt 
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übrigens auch die neue Signation der ARD. Preis für diese 
Qualitätsarbeit: 4000 Dollar pro Sekunde! 

Nun aber zurück za unserem CPC. Auch bei Home-Computern 
wird die vektorielle Darstellung in professionellen Softwarepro¬ 
dukten als plastisches und visuelles Medium eingesetzt. Com¬ 
puterspiele wie beispielsweise ELITE 1 beziehen ihren starken 
Realismus erst durch die sich ständig in der Perspektive ändern¬ 
den Wire-Frames. 

Derartige 3-D-Animationen sind nicht nur den professionellen 
Softwarehäusern Vorbehalten. Mit Hilfe der Vektor-Technik 
können wir sogar in BASIC überraschende und zugleich ver¬ 
blüffende 3-D-Effekte erzielen. Fließende Rotationen definier¬ 
ter Objekte sind selbstverständlich nur in Maschinensprache 
möglich. Trotzdem werden - wir alle folgenden Programmbeispiele 
in BASIC vorstellen, denn erstens ist die Maschinenpro¬ 
grammierung der notwendigen Algorithmen so kompliziert, daß 
ihnen ein ganzes Buch gewidmet werden müßte und zweitens hat 
ein BASIC-Interpreter den Vorteil, daß mit ihm leichter experi¬ 
mentiert werden kann. Am Ende dieses Kapitels finden Sie dann 
ein komplettes, in BASIC geschriebenes, 3-D-Animati- 
onsprogramm mit integriertem Editor und Demo-Mode. Da wir 
die Z80-Programmierer unter Ihnen nicht alleine lassen wollen, 
werden wir einige Tips zur Programmumsetzung in Maschi¬ 
nensprache vorstellen. 

Damit Sie in Zukunft Ihr eigenes 3-D-Programm verwirklichen 
können, folgt an dieser Stelle etwas Theorie. Aber keine Angst! 
Diese soll nicht in einen kompletten Lehrgang der "analytischen 
Geometrie" ausarten. Wie beschränken uns vielmehr auf die 
wesentlichen Fakten und erläutern fertige Formeln, damit Sie 
schnellstmöglich zum gewünschten Erfolg kommen. 


t 


ELITE ist eingetragenes Warenseichen der Acornsoft Ltd. 
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7.1 Das dreidimensionale Koordinatensystem 

Wie Sie aus dem letzten Kapitel entnehmen konnten, ist das 
zweidimensionale Koordinatensystem aus zwei senkrecht auf¬ 
einander stehenden Achsen aufgebaut, die als X- und Y-Achse 
bezeichnet werden und die Dimensionen "Breite" und "Höhe" 
symbolisieren. Im dreidimensionalen Koordinatensystem kommt 
noch eine weitere Dimension dazu - die Tiefe. Sie wird durch 
die sogenannte Z-Achse dargestellt. Die folgende' Abbildung soll 
Ihnen diese Zusammenhänge verdeutlichen: 



Abb. 8: Das dreidimensionale Koordinaten System 


Mit einem 3-D-Koordinatensystem ist es möglich, anhand der 
X-, Y-, und Z-Koordinaten jeden beliebigen Punkt in einem 
definierten Raum zu bestimmen. Soll beispielsweise ein Punkt 
Im Zentrum des Koordinatensystems definiert werden, so 
geschieht die Koordinatenbestimmung mit Hilfe der Matrix 
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P(0,0,0). Die drei Martixelemente repräsentieren die X-, Y-, 
und Z-Koordinaten. Daraus resultiert, daß sie für die Position 
eines Körpers auf der ihnen zugeordneten Achse zuständig sind. 
P(0,0,100) bestimmt beispielsweise einen Punkt, der sich in dem 
vom Betrachter zugewandten Teil der Z-Achse befindet, wäh¬ 
rend P(0,0,-100) ihren negativen Teil adressiert. 

Die Größe des dreidimensionalen Raums hängt dabei selbstver¬ 
ständlich von der Länge der einzelnen Achsen des Koordina¬ 
tensystems ab. Die Anzahl darin zu definierenden Koordinaten 
werden am besten mit Hilfe von drei eindimensionalen Feldern 
(Vektoren) adressiert, die problemlos mit dem DIM-Befehl ihres 
BASIC-Interpreters definiert werden können. Die Größe jedes 
Vektors ist bei diesem Verfahren nur durch den Speicherplatz 
Ihres Rechners begrenzt. 


Beispiel: 


100 XN=300:'Maximale Anzahl 
110 YN=300:'Maximale Anzahl 
120 ZN=300:'Maximale Anzahl 


der X-Koordinaten 
der Y-Koordinaten 
der Z-Koordinaten 


130 DIM X(XN), Y(YN), Z(ZN) 


Es gibt zwei Möglichkeiten, ein Objekt in unserem Koordina¬ 
tensystem zu definieren. 

1. Der gesamte Flächeninhalt eines Objekts wird in das Ko¬ 
ordinatensystem übertragen. 

2. Die Definition eines Objekts beschränkt sich auf die Ko¬ 
ordinaten aller Eckpunkte und deren Verbindungen. 

Die erste der beiden Alternativen hat den Nachteil, daß sehr 
viele Punkte für die Objekt-Definition in unsere Vektoren 
übertragen werden müssen. Eine Objekt-Rotation hätte somit 
einen sehr hohen Rechenaufwand zur Folge. Des weiteren sind 
bei dieser Methode spätere Objektänderungen so gut wie 
unmöglich. 


i-D-Vektorerafik 


239 


Die zweite Alternative ist hingegen hervorragend für unser Vor¬ 
haben geeignet. Da alle Vektoren nur die Eckpunkte eines Ob¬ 
jekts beinhalten, beschränken sich auf sie alle späteren Rechen¬ 
operationen der Objektanimation. Dabei kann jedoch nicht das 
Objekt als Ganzes dargestellt werden. Um dies zu erreichen, be¬ 
dient man sich eines kleinen Tricks. Alle gespeicherten 
Eckpunkte werden einfach mit Linien verbunden. Um dies zu 
erreichen, muß ein permanenter Zugriff auf die Verbin¬ 
dungsdaten der Eckpunkte gewährleistet sein. • 



Abb 10: Eckpunkte/verbundene Eckpunkte 


Unser 3-D-Programm muß also in seiner endgültigen Version 
neben den drei Vektoren einen weiteren Datenblock beinhalten, 
der die Verbindungen zwischen den einzelnen Koordinaten ent¬ 
hält. Er kann mit Hilfe einer zweidimensionalen Matrix erzeugt 
worden. Da der Umfang der Matrix kaum vorhergesagt werden 
kann, wählt man im Dimensionierungs-Block sinnvollerweise 
eine große Zahl. Der erste Parameter der Anweisung 


DIM VC255.1) 


gibt in diesem Beispiel die Anzahl der Verbindungen (256) an. 
Mit dem zweiten Parameter werden jeweils 2 Speicherstellen (0 
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und 1) für die zwei zu verbindenen Eckpunktnummern reser¬ 
viert. 

Eine zweidimensionale Matrix und drei Vektoren ermöglichen 
also die vollständige Definition eines Objekts im dreidimensio¬ 
nalen Raum. Aber wie wird es auf den Bildschirm projeziert? 
Die Mathematik bietet diesbezüglich zwei Lösungen an: 


- Die Parallelprojektion und 

- die Zentralprojektion. 


Beide Projektionsarten sind für unser Vorhaben zu verwenden. 
Welche Sie später einmal bevorzugen werden, hängt vom Ein¬ 
satzgebiet der 3-D-Grafik und Ihrem persönlichen Geschmack 
ab. Im Folgenden wird jedenfalls die Funktionsweise beider 
Verfahren, sowie die damit verbundenen Vor- und Nachteile 
erläutert. 


7.2 Die Parallelprojektion 

Diese Projektionsart ist die einfachere unserer zwei Methoden. 
Sie stellt Objekte in der sogenannten Parallelperspektive dar. 
Objekte, die mittels Parallelperspektive auf dem Bildschirm 
projiziert worden sind, beziehen sich auf keinen Fluchtpunkt; 
d.h. in unserem Fall, keinen definierten Punkt, worauf alle 
Linien zustreben. Daraus resultiert, daß die Größe eines Körpers 
optisch nicht mehr im dreidimensionalen Raum erfaßbar ist. 

Die Parallelprojektion bietet aber auch Vorteile. Da sie mit rela¬ 
tiv wenig Aufwand in 3-D-Programme implementiert werden 
kann, erreichen selbst BASIC-Programme^ beachtliche Projek¬ 
tionsgeschwindigkeiten. Darüber hinaus können Objekte in pa¬ 
rallelperspektivischer Darstellung selbst bei geringer Bildschirm¬ 
auflösung (z.B. MODE 0) plastisch wirken. 
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Abb. 11: Beispiel für eine Parallelprojektion 


Aber nun zum eigentlichen Projektionsverfahren. Da der Bild¬ 
schirm nur ein zweidimensionales Medium ist, können Grafiken 
folglich nur zweidimensional ausgegeben werden. Um einen 
"Quasi-3-D-Effekt" zu erzielen, muß die Grafik auf dem Bild¬ 
schirm verzerrt werden. Das bedeutet in unserem Fall, die X- 
und Y-Koordinaten der Start- und Endpunkte aller Linien eines 
definierten Objekts mit den ihnen zugeortneten Z-Parametern zu 
manipulieren. Folgende Formeln ermöglichen eine derartige 
Transformation: 


XP=X(V(I,J))+Z(V(I,J))*SIN(ALPHA) 
YP=Y(V(I,J))+Z(V(I,J))*SIN(BETA) 


In beiden Fällen wird zum aktuellen, durch die Verbindungs- 
malrix V(I,J) indizierten Vektor-Element, das Produkt aus Z- 
Koordinate und Betrachtungswinkel addiert. Er wird durch die 
Variablen ALPHA und BETA angegeben. Damit Sie sich eine 
bessere Vorstellung von der Wirkung der Formeln machen kön¬ 
nen, präsentieren wir Ihnen an dieser Stelle ein kleines Demon- 
slrutionsprogramm, mit einem bereits fertig definierten Objekt. 
Dessen Eckpunkte und Verbindungslinien sind in DATA-Blök- 
l<en gespeichert und können von Ihnen leicht manipuliert wer- 
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den. Experimentieren Sie ruhig einmal mit verschiedenen Blick¬ 
winkeln und Objekten und Sie werden erkennen, wie faszi¬ 
nierend die 3-D-Grafik sein kann. 


1 mmmmmmmmmmmmmm 
'## m 

'## PARALLELPROJEKTIONS-DEMO ## 


'## 

'## 


7.9.'86 TAV 


m 

m 


io 
20 
30 
40 
so 
60 
70 ' 

80 ' 

100 'INITIALISIERUNG 

110 1 

120 MODE 1 
130 DEG 

140 ORIGIN 320,200 
150 DEFINT A-Z 

160 DIM X(255),Y(255),Z(255),V(255,1> 

170 ' 

180 'KOORDINATEN EINLESEN 
190 ' 

200 READ J 

210 FOR 1=0 TO J:READ XU),Y(I),Z(I):NEXT 

220 • 

230 'VERBINDUNGEN EINLESEN 
240 ' 

250 READ VB 

260 FOR 1=0 TO VB:READ V(I,0>,V(I,1):NEXT 
270 ' 

280 'BLICKWINKEL EINGEBEN 
290 ' 

300 CLS 

310 PRINT"BITTE BETRACHTUNGSWINKEL EINGEBEN'' 
320 PRINT:PRINT 

330 INPUT''ALPHA (0-360)";ALPHA 
340 INPUT''BETA (0-360)";BETA 
350 CLS 
360 ' 
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370 'PROJEKTIONS-SCHLEIFE 
380 ' 

390 FOR 1=0 TO VB 
400 J =0:GOSUB 510 
410 MOVE XP,YP 
420 J=1:GOSUB 510 
430 DRAU XP,YP 
440 NEXT 
450 ' 

460 LOCATE 8,25:PRINT''BITTE EINE TASTE DRUECKEN!"; 
470 IF INKEY$="" THEN 470 ELSE 300 
480 ' 

490 1 3-D-TRANSFORMATION 
500 ' 

510 XP=X<V(I,J))+Z(V(I,J))*SIN(ALPHA) 

520 YP=Y<V(I,J>)+Z<V(I,J))*SIN(BETA> 

530 RETURN 
540 ' 

550 'KOORDINATEN 
560 • 

570 DATA 7:'ANZAHL DER KOORDINATEN MINUS EINS 
575 ' 

580 DATA -50,-50,-50 
590 DATA -50,50,-50 
600 DATA 50,50,-50 
610 DATA 50,-50,-50 
620 DATA -50,-50,50 
630 DATA -50,50,50 
640 DATA 50,50,50 
650 DATA 50,-50,50 
660 ' 

670 'VERBINDUNGEN 
680 • 

690 DATA 13:'ANZAHL DER VERBINDUNGEN MINUS EINS 
695 ' 

700 DATA 0,1 
710 DATA 1,2 
720 DATA 2,3 
730 DATA 3,0 
740 DATA 4,5 
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750 DATA 5,6 
760 DATA 6,7 
770 DATA 7,4 
780 DATA 0,4 
790 DATA 1,5 
800 DATA 2,6 
810 DATA 3,7 
820 DATA 0,2 
830 DATA 1,3 


Programmbeschreibung 

100-160 Initialisierung 

Die Grafikauflösung 320x200 Punkte wird gewählt, 
die Bogenmaß-Kalkulation ausgeschaltet und alle 
Vektoren und Matrizen dimensioniert. Weiterhin 
werden alle Variablen als Integer deklariert 
(DEFINT) und der Koordinatenursprung in die 
Mitte des Bildschirms verlegt. 

170-260 Daten einiesen 

Die DATA-Elemente werden in die Eckpunkt-, 
Verbindungstabelle geladen. Mit dem READ-Be- 
fehl vor jeder Schleife werden jeweils die Anzahl 
der Datenelemente-1, welche die in der nächsten 
Zeile stehende FOR-NEXT-Schleife einzulesen 
hat, in die zugeordnete Maxline-Variable geladen 
(J und VB). 

270-350 Blickwinkel definieren 

Der Blickwinkel in Grad wird mittels INPUT-Be- 
fehl in die Variablen ALPHA und BETA eingele¬ 
sen. Danach wird der Bildschirm gelöscht. 

360-470 Projektions-Schleife 

Sie holt alle Linien eines Objekts aus den Tabellen 
und gibt die Indizes der Start- und Endkoordinaten 
an die 3-D-Transformationsroutine (GOSUB 510) 
weiter. Die in XP und YP gewonnenen Koordina- 
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ten XI, X2, Y1 und Y2 werden in den Zeilen 410 
und 430 für das Zeichnen der Linien verwendet. 

Nach Fertigstellung des Bildes wartet die Routine 
in Zeile 470 so lange, bis eine beliebige Taste ge¬ 
drückt wird. Wurde eine Taste betätigt, erfolgt ein 
Rücksprung in die Blickwinkel-Definitionsroutine. 

480-530 3-D-Transformation 

Diese Routine berechnet die X- und Y-Position 
eines Eckpunktes auf dem Bildschirm in Parallel¬ 
perspektive. 

540-650 Koordinaten 

Das erste DATA-Element gibt die Anzahl der fol¬ 
genden DATA-Zeilen-1 an. 

660-Ende Verbindungen 

Das erste DATA-Element gibt die Anzahl der fol¬ 
genden DATA-Zeilen-1 an. 


Soll das Objekt zusätzlich im Raum verschoben werden, müssen 
alle Koordinaten mit einem entsprechenden Offset versehen 
werden. Dieser Offset kann sowohl positiv als auch negativ sein. 
Noch seiner Implementierung ergeben sich folgende Formeln: 


XP»X(V(I,J))+XOFF+(Z(V(I,J))+Z0FF)*SIN(ALPHA) 
YP«Y<VC I,J))+Y0FF+(Z(V(I,J))+Z0FF >*SIM(BETA) 


liills ein verschobendes Objekt wieder in seine Ausgangsposition 
zurückgebracht werden soll, muß XOFF, YOFF und ZOFF eine 
0 zugewiesen werden. 
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7.2.1 Rotation im Raum 

Bis jetzt war es uns nur möglich, ein dreidimensionales Objekt 
auf dem Bildschirm zu verschieben und es dabei aus verschie¬ 
denen Blickwinkeln zu betrachten. Obwohl mit den daraus re¬ 
sultierenden grafischen Ergebnissen ein starker dreidimensio¬ 
naler Eindruck erzielt wird, kann dieser noch weiter verbessert 
werden. Zu einer realistischen dreidimensionalen Animation ge¬ 
hört nämlich die freie Rotation im Raum. Damit Sie ein Objekt 
um eine der drei Achsen rotieren lassen können, müssen die 3- 
D-Koordinaten in entsprechende gedrehte Koordinaten umge¬ 
rechnet werden. Diese Transformation kann pro Achse mit zwei 
Formeln realisiert werden. 


Rotation um die X-Achse: 

YR=Y(V(I,J))*COS(ALPHA)+Z(V(I,J))*SIN(ALPHA) 
ZR=-Y(V(I, J) )*SI N<ALPHAW<V< I, J ) )*COS(ALPHA) 


Rotation um die Y-Achse: 

XR=X(V(t,J))*COS(BETA)+Z(V(I, J))*S1N(BETA) 
ZR=-X<V(I,J))*SIN(BETA)+ZCV(I,J))*COS(BETA) 


Rotation um die Z-Achse: 

XR=X(V(I,J))* COS(GAMMA)+Y(V(I, J))*S1N<GAMMA) 
YR=-X(V(I,J))*SIN(GAMMA)+Y(V(I,J))*COS(GAMMA) 


Den Variablen ALPHA, BETA und GAMMA muß vor An¬ 
sprung der Berechnungsroutine ein Rotationswinkel zugewiesen 
werden. In diesem Zusammenhang ist unbedingt zu beachten, 
daß die Rotation nicht gleichzeitig über alle Achsen erfolgen 
kann. Falls Sie dies dennoch wünschen, müssen die vom ersten 
Formelpaar gewonnenen Daten in die nächsten beiden Gleichun¬ 
gen einbezogen werden. 
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7.3 Die Zentralprojektion 

Obwohl unser Projektionsverfahren an dieser Stelle perfekt zu 
sein scheint, wirkt die Objekt-Rotation in einigen Fällen un¬ 
realistisch. Warum? Nun - wenn wir einen Körper aus unter¬ 
schiedlichen Entfernungen und Perspektiven betrachten, werden 
wir feststellen, daß seine Entfernung vom menschlichen Auge in 
einer Beziehung zu seinem gesamten äußeren Erscheinungsbild 
steht. Dieses Phänomen basiert auf der Tatsache, daß alle 
erfaßbaren Konturen eines Gegenstandes auf einen von unseren 
Augen definierten Punkt am Horizont - dem sogenannten 
Fluchtpunkt - zustreben. Das wiederum hat zur Folge, daß uns 
ein Objekt umso kleiner erscheint, desto näher es sich an diesem 
fiktiven Fluchtpunkt zu befinden scheint. Und gerade dieser 
Effekt, der in der Fachsprache auch "track-effect" genannt wird, 
hilft dem menschlichen Gehirn die Ausmaße eines Gegenstands 
und seine Entfernung vom Beobachter zu ermitteln. Er ist folg¬ 
lich auch für den fehlenden Realismus bei unserem bisherigen 
Projektionsverfahren verantwortlich. 


AUtaii 



Die Zentralprojektion ermöglicht uns im Gegensatz zur Parallel- 
projoktion, einen fiktiven Fluchtpunkt in unserem dreidimensio¬ 
nalen Koordinatensystem festzulegen. Dieses Verfahren ist leider 
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extrem komplex und somit sehr rechen- und zeitintensiv. Es ist 
aber letztendlich die einzige Möglichkeit, eine perfekte dreidi¬ 
mensionale Struktur. auf dem Bildschirm zu erzeugen. Mit den 
folgenden Formeln kann ein definiertes Objekt in Zentralper¬ 
spektive auf dem Display projiziert werden. Bitte lassen Sie sich 
nicht durch die vielen benötigen Formeln und deren Komplexi¬ 
tät abschrecken! Wir werden später einen kleinen Trick vorstel¬ 
len, der die hohe Rechenzeit stark minimiert. 


PO = COS(GAMMA)*COS(BETA) 

PI = SIN(GAMMA)*COS(BETA) 

P2 =-SIN(BETA) 

P3 =-SIN(GAMMA)*COS(ALPHA)+COS(GAMMA)*SJN(BETA)*SlN(ALPHA) 
P4 = COS(GAMMA)*COS(ALPHA)+SIN(GAMMA)*SIN(BETA)*SIN(ALPHA) 
P5 = COS(BETA)*SIN(ALPHA) 

P6 = SIN(GAMMA)*SIN(ALPHA)+COS(GAMMA)*SIN(BETA)*COS(ALPHA) 
P7 = - COS(GAMMA)*SIN(AL PHA)+SIH(GAMMA)*SIN < BETA >*COS(AL PHA) 
P8 = COS(BETA)*COS(ALPHA) 

ZP=1-<X(V{I,J)*P2+Y(V(I,J))*P5+Z(V(1,J))*P8+ZOFF)/FP 
XP=(X(V(I,J)*P0+Y(V<I,J))*P3+Z(V(I,J))*P6+X0FF)/ZP 
YP=(X(V(I,J)*P1+Y(V(I,J))*P4+Z(V(I,J))*P7+Y0FF)/ZP 


Eingabeparameter: 


ALPHA 

BETA 

GAMMA 

FP 


Winkel der Rotation um die X-Achse (0 bis 360 
Grad) 

Winkel der Rotation um die Y-Achse (0 bis 360 
Grad) 

Winkel der Rotation um die Z-Achse (0 bis 360 
Grad) 

Fluchtpunkt 


V 

I 

J 


Verbindungslinien-Matrix 
Verbindungslinien-Nummer (0 bis n-1) 

Index für Start- und Endpunkt einer Verbindung 
(0 bis 1) 
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X(n-l) = X-Vektor 

Y(n-l) = Y-Vektor 

Z(n-l) = Z-Vektor 


Ausgabe parameter: 

XP = X-Koordinate auf Bildschirm 

YP = Y-Koordinate auf Bildschirm 

7.4 Tricks zur schnelleren Objektanimation 


Winkel funktions-Tabeilen 

Da die dreidimensionale Vektorgrafik mit Hilfe von Winkel¬ 
funktionen erzeugt wird, steigt die Rechenzeit, die für den Auf¬ 
bau eines Bildes notwendig ist, schnell auf mehrere Sekunden. 
Dieser unerwünschte Nebeneffekt tritt insbesondere im Zusam¬ 
menhang mit der Zentralperspektive auf. Um die zwangsläufig 
entstehenden Rechenzeiten auf ein vernünftiges Maß zu redu¬ 
zieren, kann auf Winkelfunktions-Tabellen zurückgegriffen wer¬ 
den. Sie verhindern, daß während der Objektprojektion zeitin¬ 
tensive Sinus- und Cosinus-Berechnungsroutinen angesprungen 
werden müssen und machen somit erst die Objektänimation auf 
Microcomputern möglich. 

Die Implementierung der benötigen Sinus- und Cosinus-Tabellen 
Ist sehr einfach. Im Initialisierungsblock Ihres Programms müs¬ 
sen mittels DIM-Anweisung zwei weitere Vektoren mit dem 
Wort 360 dimensioniert werden: SI! und CO!. 


DIM SI!(360),CO!(360) 


SI! repräsentiert in unserem Beispiel die Sinus- und CO! die 
(’usinus-Tabelle. Der Wert 360 entspricht 360 Grad. Unmittelbar 
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danach empfiehlt es sich, beide Tabellen zu generieren. Die 
BASIC-Zeile 


FOR 1=0 TO 360:SI!(I)=SIN(I):C0!(I)=C0S(I):NEXT 


erledigt für uns diese Aufgabe. Jetzt muß in der Berechnungs¬ 
routine nur noch SIN und COS durch SI! und CO! ersetzt werden 
- fertig! 

Von diesem Zeitpunkt an braucht Ihr 3-D-Programm nie wieder 
eine Winkelfunktion zu berechnen. Falls ein derartiger Wert 
benötigt wird, holt es sich einfach automatisch den benötigten 
Wert aus einer der beiden Tabellen. Den sich daraus ergebenden 
Geschwindigkeitsvorteil werden Sie sehr bald zu schätzen wissen. 


Flackerfreie Animation 

Die dreidimensionale Wirkung einer Vektorgrafik wird leider 
durch den bei der Objektanimation entstehenden Bildauf- und - 
abbau stark eingeschränkt. Bei komplizierten Gitterstrukturen 
kann dieser Effekt den Bewegungseindruck sogar völlig zerstö¬ 
ren. Dem kann - wenn mit zwei voneinander unabhängigen 
Bildschirmseiten gearbeitet wird - abgeholfen werden. Zu die¬ 
sem Zweck müssen die 16K der zweiten Bank (&4000 bis 
&7FFF) mittels MEMORY-Befehl reserviert und als alternative 
Bildschirmseite definiert werden. 

Hinweis: Die Besitzer eines CPC-6128 können selbstver¬ 

ständlich mit den BANK-Befehlen (SCREENCOPY 
und |SCREENSWAP denselben Effekt erzielen. Aus 
Gründen der Kompatibilität möchten wir Ihnen je¬ 
doch an dieser Stelle ein allgemein gültiges Verfah¬ 
ren vorstellen. Es arbeitet genauso schnell wie eine 
mit Screen-Befehlen realisierte Routine und ist auf 
allen CPC-Rechnern lauffähig. 
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Nachdem der RAM-Bereich &4000 bis &7FFF mit dem Me- 
mory-Befehl geschützt wurde, schaltet die Sequenz 


OUT &BC00,12:0UT SBD00.16 


auf die alternative Bildschirmseite (&4000) und 


OUT &BC00,12:OUT &BD00,52 


zurück auf die normale Bildschirmseite (&C000). Durch beide 
OUT-Sequenzen wird eine gezielte Manipulation des Video- 
Controllers vorgenommen. Das ist in unserem Fall wesentlich 
effektiver, als einen Vektor zu benutzen, da letzterer zusätzlich 
alle Grafikfunktionen auf den neuen Bildschirmbereich fixiert - 
und genau das soll ja vermieden werden. 

Nun brauchen wir nur noch eine kleine Maschinenroutine, die 
don gesamten Bildschirminhalt der normalen Bildschirmseite in 
unsere alternative Bildschirmseite kopiert. Der Befehlsschatz der 
Z8Q-CPU beinhaltet erfreulicherweise einen Block-Move-Be- 
fehl, - den LDIR-Befehl welcher diese Arbeit für uns erledigt. 
Kr muß nur wie folgt initialisiert werden: 


Der Z80-Code: 


ID HL.SC000 
LD DE,&4000 
ID BC.&4000 
LD IR 
RET 


•Kopiere die normale Screen 
•in die alternative Screert 
'Kopiere insgesamt 16K 
'und zwar jetzt! 

'Fertig! 
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Der BASIC-Lader: 

100 FC* 1=0 TO 11:READ J:P0KE &3FF4+I,J:NEXT 

200 DATA &21,&00 < &C0 1 &11,&00 I &40,&01,&00,&40,&ED,&BO,&C9 


Nun müssen die einzelnen Schritte nur noch in der folgenden 
Reihenfolge aufgerufen werden: 


1. auf normale Bildschirmseite umschalten 

2. kopiere mittels LDIR-Befehl die normale Bildschirmseite 
(&C000) nach Bank 1 (&4000) 

3. auf alternative Bildschirmseite umschalten 

4. normalen Bildschirm löschen 

5. Grafik auf normale Bildschirmseite erstellen 

6. Schritte 1 bis 5 so lange wiederholen, bis die Animation 
beendet ist. 

Eine äquivalente Routine läßt sich so mit diesen Informationen 
leicht entwickeln: 


100 OUT &BCOO,12:OUT &BD00.52 
110 CAU LDIR 

120 OUT &BC00,12:0UT &BD00.16 
130 REH *** Animation *** 


999 GOTO 100 
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7.5 CPCs-World 

An dieser Stelle möchten wir Ihnen ein komplettes Programm 
für die dreidimensional-animierte Vektorgrafik vorstellen. Es 
ermöglicht, ein definiertes Drahtmodell um alle Achsen des Ko- 
ordinatensystems zu rotieren und zu verschieben. Als Projekti¬ 
onsverfahren wurde die Zentralprojektion gewählt. Das Pro¬ 
gramm trägt den Namen "CPCs World" und ist in fünf Sektionen 
unterteilt. 


1. Objekt-Generator 

2. Objekt-Editor 

3. Animations-Editor 

4. 3-D-Animationsmodus 

5. Laden, Sichern und Löschen eines Objekts 


Wie Sie aus dieser Aufstellung entnehmen können, wurde bei 
der Programmentwicklung besonderen Wert auf die möglichst 
einfache Generierung einer Animationssequenz eines Objekts 
gelegt. Das Programm ist so aufgebaut, daß einzelne Routinen in 
eigene Programme transferiert werden können. Es soll ferner alle 
grundlegenden Möglichkeiten demonstrieren, die in der Pro¬ 
grammiersprache BASIC realisiert werden können. 

Nach Starten des Programms erscheint das Hauptmenü auf dem 
lllldschirm: 
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0 Objekt-Generator 

1 Eckpunkt-Editor 

2 Verbindungs-Editor 

3 Animations-Editor 

4 Animation 

5 Objekt sichern 

6 Objekt laden 

7 Objekt loeschen 

8 Demo laden 

9 Programm beenden 


Bitte waehlen Sie eine Funktion 


Mit den Ziffertasten 0 bis 9 kann in einem der Zehn zur Verfü¬ 
gung stehenden Menüpunkte verzweigt werden. Nach Beendi¬ 
gung jeder Routine erfolgt ein automatischer Rücksprung in das 
Hauptmenü. 

Der nun folgende Text befaßt sich mit den Möglichkeiten, sowie 
der Anwendung jedes einzelnen Menüpunktes. Eine komplette 
Programmbeschreibung finden Sie im Anschluß des danach fol¬ 
genden Listings. 


Objekt-Generator 

Der Objekt-Generator ermöglicht auf einfachste Weise, ein 
komplexes Drahtmodell zu definieren. Nach der Menüauswahl 
erscheint ein zweidimensionales Koordinatensystem sowie ein 
Fadenkreuz auf dem Bildschirm. Das Kreuz kann mit den Cur¬ 
sortasten in alle Richtungen bewegt werden. 
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Durch Betätigen der SPACE-Taste werden die aktuellen Koordi¬ 
naten des Fadenkreuzes gespeichert und mit dem Buchstaben "X" 
markiert. Danach wird von ihnen automatisch eine Linie zu der 
zuletzt mit SPACE definierten Position gezogen. Mit dieser 
Methode kann die zweidimensionale Hälfte eines dreidimensio¬ 
nalen Körpers definiert werden. Die folgende Abbildung ver¬ 
deutlicht eine derartige Definition anhand der fetten Linien. Die 
Sterne geben an, an welchen Stellen die SPACE-Taste ge¬ 
drückt wurde. 



Ab b, 13: Definition eines Kelches 


Die Generierung eines Objekts wird durch das Betätigen der 
WUTURN-Taste abgeschlossen. Es wird nun um die Y-Achse 
gespiegelt und in einem anschließenden Arbeitsgang automatisch 
vernetzt. 
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Abb 14: Objekt-Generator 


Eckpunkt-Editor 

Objekte können ebenfalls mit dem Eckpunkt-Editor definiert 
werden. Nach Auswahl des Menüpunktes "1" erscheint die Frage 


Ab Eckpunkt? 


auf dem Bildschirm. Das Programm erwartet an dieser Stelle 
eine Zahl zwischen 0 und der Nummer des ersten, noch nicht 
definierten Eckpunktes. Ist sie zu groß, wird- dies durch die 
Fehlermeldung 


*** Eckpunkt nicht vorhanden! *** 
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kenntlich gemacht. Falls die RETURN-Taste ohne vorherge¬ 
hende Eingabe betätigt wird, springt die Routine immer nach 
Eckpunkt Null. Nach der Definition des ersten zu bearbeitenden 
Eckpunktes erscheint eine Eckpunkt-Tabelle auf dem Bild¬ 
schirm. 


ECKPUNKT 

X 

Y 

Z 


0 

-85 

94 

0 

Aendern? 

1 

-66 

64 

0 

Aendern? 

2 

-66 

30 

0 

Aendern? 

3 

-28 

30 

0 

Aendern? 

4 

-28 

-39 

0 

Aendern? 

5 

-62 

-39 

0 

Aendern? 


T ftbrll« 2 : Typische Eckpunkt-Tabelle 


Auf der linken Seite der Tabelle steht die aktuelle Eckpunkt- 
nummer. Daneben wird ihr Inhalt, der aus einer X-, Y-, und Z- 
Position besteht, angezeigt. Weiterhin fragt Sie die Routine mit 
der Bildschirmmeldung "Aendern?", ob der Inhalt des Eck¬ 
punktes geändert werden soll. Als Eingabeparameter akzeptiert 
dim Programm folgende Antworten: 


- "J" (Ja) bestätigt Ihren Änderungswunsch und verzweigt 
in eine Editor-Routine. 

- "Q" (Quitt) bricht die Funktion ab und verzweigt zu¬ 
rück in das Hauptmenü. 

- RETURN oder eine andere Taste verzweigt zum näch¬ 
sten Tabelleneihtrag. 


Mil dem "Eckpunkt-Editor" können maximal 128 Eckpunkte 
definiert werden. 
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Verbindungs-Editor 

Diese Routine wird benötigt, um Verbindungen zwischen den 
mittels Eckpunkt-Editor definierten Punkten herzustellen. Nach 
Auswahl des Menüpunktes "2'' erscheint die Frage 


Ab Verbindung? 


auf dem Bildschirm. Das Programm erwartet an dieser Stelle 
eine Zahl zwischen 0 und der Nummer der ersten, noch nicht 
definierten Verbindung. Ist sie zu groß, wird dies durch die 
Fehlermeldung 


*** Verbindung nicht vorhanden! *** 


kenntlich gemacht. Falls die RETURN-Taste ohne vorherge¬ 
hende Eingabe betätigt wird, springt die Routine immer nach 
Verbindung Null. Nach der Definition der ersten zu bearbeiten¬ 
den Verbindung erscheint eine Tabelle auf dem Bildschirm. 


VERBINDUNG 

PI 

P2 


0 

0 

6 

Aendern? 

1 

6 

12 

Aendern? 

2 

12 

18 

Aendern? 

3 

18 

0 

Aendern? 

4 

1 

7 

Aendern? 

5 

7 

13 

Aendern? 


Tabelle 3: Typische Verbindungslinien-Tabelle 


Auf der linken Seite der Tabelle steht die aktuelle Verbindungs- 
Iinien-Nummer. Daneben wird ihr Inhalt, der aus Eckpunkt- 
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nummern besteht, angezeigt. Weiterhin fragt Sie das Programm 
mit der Bildschirmmeldung "Aendern?", ob die Verbindung ge¬ 
lindert werden soll. Die Routine akzeptiert die gleichen Ant¬ 
worten wie der oben beschriebende Eckpunkt-Editor. Mit dem 
"Verbindungs-Editor" können maximal 128 Verbindungen defi¬ 
niert werden. 


Animations-Editor 

Der Bewegungsablauf eines fertig generierten Objekts muß mit 
Hilfe des Animations-Editors definiert werden. Er ermöglicht 
die Definition von 128 Animationsschritten, wobei jeder 
Animationsschritt aus 6 Teilschritten besteht. Der Animations- 
l.dilor wird durch den Punkt "3" im Hauptmenü aufgerufen. 
Unmittelbar danach erscheint die Frage 


Ab Zeile? 


auf dem Bildschirm. Das Programm erwartet an dieser Stelle 
eine Zahl zwischen 0 und der Nummer der ersten, noch nicht 
definierten Programmzeile. Ist sie zu groß, wird dies durch die 
l’ohlormeldung 


*** z e ii e nicht vorhanden! *** 


kenntlich gemacht. Falls die RETURN-Taste ohne vorherge¬ 
hende Eingabe betätigt wird, springt die Routine immer nach 
Zeile Null. Nach der Angabe einer gültigen Zeilennummer er- 
Neheint eine Animations-Tabelle auf dem Bildschirm. 
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ZEILE XROT YROT ZROT 
0: 0 0 0 

1 : 1 1 0 

2 : 2 2 0 

3: 3 3 0 

4: 4 4 0 

5: 5 5 0 

6 : 6 6 0 

7: 7 7 0 

8 : 8 8 0 

9: 9 9 0 

10 : 10 10 0 


XPOS 

YPOS 

ZPOS 


0 

0 

0 

Aendern? 

0 

0 

15 

Aendern? 

0 

0 

30 

Aendern? 

0 

0 

45 

Aendern? 

0 

0 

60 

Aendern? 

0 

0 

75 

Aendern? 

0 

0 

90 

Aendern? 

0 

0 

105 

Aendern? 

0 

0 

120 

Aendern? 

0 

0 

135 

Aendern? 

0 

0 

150 

Aendern? 


Tabelle 4: Typische Animations-Tabelle 


Auf der linken Seite der Tabelle steht die aktuelle Zeilennum¬ 
mer. Daneben wird ihr Inhalt, der aus jeweils drei Rotations¬ 
winkeln und Verschiebeparametern besteht, angezeigt. Weiterhin 
fragt Sie die Routine mit der Bildschirmmeldung "Zeile 
Aendern?", ob der Inhalt der Zeile geändert werden soll. Als 
Eingabeparameter akzeptiert das Programm folgende Antworten: 


- "J" (Ja) bestätigt Ihren Änderungswunsch und verzweigt 
in eine Editor-Routine. 

- "Q" (Quittieren) bricht die Funktion ab und verzweigt 
zurück in das Hauptmenü. 

- RETURN oder eine andere Taste verzweigt zum näch¬ 
sten Tabelleneintrag. 


Falls durch Betätigung der Taste "J" die Animations-Zeile geän¬ 
dert werden soll, müssen als erstes die Rotationswinkel XROT, 
YROT und ZROT definiert werden. Jeder Winkel im Bereich 
von 0 bis 360 Grad beschreibt die Rotation des Objekts um die 
X-, Y-, oder Z-Achse. Die Routine erwartet als Eingabepara- 





mcter jeweils einen positiven Wert zwischen 0 und 23. Er 
repräsentiert eine Konstante, die den Rotationswinkel in 15- 
Grad-Schritten angibt. Mit Hilfe folgender Umrechnungstabelle 
kann eine benötigte Konstante problemlos ermittelt werden. 
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Als nächstes verlangt der Editor die Eingabe der XPOS-, YPOS- 
und ZPOS-Verschiebeparameter. Sie geben den Abstand des 
Objekts auf der X-, Y-, und Z-Achse vom Nullpunkt an und 
können sowohl positiv als auch negativ sein. 


y 



Abb. 16: Wirkung der Verschiebeparameter im Koordinatensystem 


Eine auf diese Weise definierte Animation wird durch die fol¬ 
gende Funktion ausgeführt. 


Animation 

Diese Routine animiert ein definiertes Objekt mit den im Ani¬ 
mations-Editor vorhandenen Daten. Nach Abarbeitung der letz¬ 
ten Animationssequenz erfolgt ein automatischer Rücksprung 
zum Hauptmenü. 
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Objekt sichern 

Dieser Menüpunkt ermöglich die dauerhafe Sicherung eines 
Objekts, d.h. alle Eckpunkte und Verbindungen sowie die von 
Ihnen erstellte Animationssequenz auf Diskette. Nach Anwahl 
von "Objekt sichern" erscheint die Aufforderung 


Bitte Dateinamen eingeben? 


liuf dem Bildschirm. Nach Eingabe des Dateinamens erfolgt die 
Objektsicherung mit einem anschließendem Rückspung in das 
I hiupmenü. 


Objekt laden 

Durch diese Routine wird ein Objekt, das mit der "Objekt 
*lchern"-Funktion gespeichert wurde geladen. Nach Anwahl von 
"Objekt laden" erscheint die Aufforderung 


Bitte Dateinamen eingeben? 


nuf dem Bildschirm. Nach Eingabe des Dateinamens erfolgt der 
Ende Vorgang mit einem anschließendem Rückspung in das 
llnupmenü. 


Objekt löschen 

Diese Fuktion setzt die Variablen der Eckpunkt-, Verbindungs- 
uml Animations-Tabeilen sowie aller Pointer auf ihre Default- 
Werte. 



264 


Das große Grafikbuch zum CPC 


Demo laden 

Lädt ein Objekt sowie eine einfache Animation in der Speicher. 


Programm beenden 

Beendet "CPCs World" mittels END-Befehl. 


100 

110 <## ## 

120 '## CPCs WORLD ## 

130 '## 8.9.‘86 TAV ## 

140 '## m 

150 
160 
170 

180 'INITIALISIERUNG 
190 

200 MEMORY &3FF3 
210 DEG 

220 DEF1NT A-Z 

230 DIM X(127),Y(127),Z(127),V(127,1),SI!(23),C0!(23),ALPHA(127),BETA(12 
7),GAMMA(127),X0FF(127),Y0FF<127),Z0FF(127) 

240 FP=640 
250 1 

260 'BLOCK-MOVE- ROUTINE IN DEN SPEICHER LADEN 
270 ' 

280 FOR 1=0 TO 11:R£AD J:POKE &3FF4+I,J:NEXT 
290 1 

• LD HL,&C000 
1 LD DE.&4000 
'LD BC,&4000 
' LDIR 
■RET 


300 DATA &21,&00,&CO 
310 DATA &11,&00,&40 
320 DATA &01,&00,&40 
330 DATA &ED,&80: 

340 DATA &C9: 

350 ' 

360 'SIN- UND COS-TABELLEN GEGERIEREN 


1 


1 


Remark6 in den DATA-Zeilen verursachen beim 464 einen Syntax-Error. 




V ' 
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570 1 

500 FOR 1=0 TO 345 STEP 15:SI!(I/15)=SIN(I):CO!(I/15)=COS(I):NEXT 
390 • 

400 'HAUPMENUE 
410 ' 

420 MODE 1 

440 PRINT"## ##"; 

450 PRINT"##";:PEN 3:PRINT" CPCs WORLD/TAV 8.9.86 ";:PEN 1: 

PRINT"##»; 

460 PRINT"## ##"; 

470 PRINT» ########################### # # ###########"; 

460 PRINT:PRINT:PRINT:PRINT:PRINT 

490 PEN 3:PRINT TAB<10)»0 »;:PEN 1:PRINT»Objekt-Generator» 

900 PEN 3:PRINT TAB(10)"1 »;:PEN 1:PRINT"Eckpunkt-Editor» 

910 PEN 3:PRINT TAB(10)"2 :PEN 1 :PRINT"Verbindungs-Editor» 

920 PEN 3:PRINT TAB(10)»3 ";:PEN 1:PRINT»Animations-Editor" 

930 PEN 3:PRINT TAB(10)"4 ";:PEN 1:PRINT»Animation" 

140 PEN 3:PRINT TAB(10)"5 ";:PEN 1:PRINT"Objekt sichern» 

990 PEN 3:PRINT TAB(10>»6 ";:PEN 1:PRINT"Objekt laden» 

360 PEN 3:PRINT TAB(10)»7 ";:PEN 1:PR INT»Objekt loeschen" 

170 PEN 3:PRINT TAB(10)»8 ";:PEN 1:PRINT»Demo laden" 

560 PEN 3:PRINT TAB(10)»9 ";:PEN 1:PRlNT»Programm beenden" 

990 PEN 3:PRINT:PRINT:PRINT:PRINT TAB(4)"Bitte waehlen Sie eine Funktion 

»IPEN 1 

600 YS«INKEYS 

610 IF Y$<"0" OR Y$>"9" THEN 600 

620 CLS:ON VAU(Y$)+1 GOTO 660,1310,1420,1200,1670,990,870,1110,1530,2680 
610 ' 

640 'OBJEKT GENERIEREN 
690 ' 

660 GOSUB 1120:MOVE 0,200:DRAW 639,200,3:MOVE 320,0:DRAU 320,399,3 
670 ORIGIN 32G,200:K=0:I=-160:J=100:PRINT CHR$(23);CHR$(1) ; 

660 TAG 

690 GRAPHICS PEN 3:M0VE I,J:PRINT »+"; 

700 YS-INKEYS:IF Y$="" THEN 700 
710 MOVE I,J:PRINT "+"; 

77D IF YS=CHR$(240) THEN J=J+1 

710 IF YS=CHR${241) THEN J=J-1 

740 IF YS=CHR$(242) THEN 1=1-1 
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750 IF Y$=CHR$(243> THEN 1=1+1 

760 IF Y$=" " THEN X<K)=I+8:Y(K)=J-6:K=K+1:MOVE I,J:GRAPHICS PEN 2:PRINT 
"X";:IF K>1 THEN MOVE X<K-2),Y(K-2):DRAW X( K-1),Y(K-1),1 
770 IF Y$=CHR$(13) THEN 790 
780 GOTO 690 

790 FOR 1=0 TO K-1:X(2*K+I)=X(I)*-1:Y(2*K+I)=Y(I) :Z(K+I)=X 
(I):Y(K+I)=Y( I):Z(3*K+I>=X(I)*-1:Y(3*K+I)=Y(I):NEXT 
800 AK=K*4-1 

810 X0=0:FOR 1=0 TO AK STEP 4:FOR J=0 TO 

3:V(I+J,0)=J*K+X0:V(I+J,1)=(J+1)*K+X0:NEXT:V(I+J-1,1)=X0:X0=XO+1:NEXT 
820 VB=AK:FOR J=0 TO AK STEP K:FOR 1=0 TO K-2:VB=VB+1:V<VB,0)=I+J:V(VB,1 
)=1+J+1:NEXT:NEXT 

830 AK=AK+1:VB=V8+1:TAGOFF:PRINT CHR$(23);CHR$(0>;:GOTO 420 
840 • 

850 'OBJEKT LADEN 
860 ' 

870 PEN 3:PRINT TAB{10)"*** OBJEKT LADEN ***":PEN 1 
880 LOCATE 1,12:INPUT"Bittc Dateinamen eingeben";Y$ 

890 GOSUB 1120:OPENIN Y$ 

900 INPUT #9,AA,AK,VB 

910 FOR 1=0 TO AA:INPUT #9,ALPHA(IJ.BETACU,GAHHA(I),XOFF(I),YOFF(l),ZOF 
F(I):NEXT 

920 FOR 1=0 TO AK:INPUT #9,X<I),Y(1),Z(I):NEXT 
930 FOR 1=0 TO VB:INPUT #9,V(I,0),V(I,1):NEXT 
940 CLOSEIN 
950 GOTO 420 
960 1 

970 'OBJEKT SPEICHERN 
980 ' 

990 PEN 3:PRINT TAB(IO)"*** OBJEKT SICHERN ***»:PEN 1 
1000 LOCATE 1,12:INPUT"Bitte Dateinamen eingeben";Y$ 

1010 OPENOUT Y$ 

1020 WRITE #9,AA,AK,VB 

1030 FOR 1=0 TO AA:WRITE #9,ALPHA(I),BETA(I),GAHHA(I),X0FF(I),YOFFCI),ZO 
FF(I):NEXT 

1040 FOR 1=0 TO AK:URITE #9,X<I),Y(I),Z(I>:NEXT 
1050 FOR 1=0 TO VB:WRITE #9 ( V<I,0),V(I,1):NEXT 
1060 CLOSEOUT 
1070 GOTO 420 
1080 ' 
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1090 OBJEKT LOESCKEN 
1100 • 

1110 GOSUB 1120:GOTO 420 
1120 AA=0:AK=0:VB=0 
1130 FOR 1=0 TO 127 

1140 ALPHACI)=0:BETA(I)=0:GAMMA(I)=0:XOFF(I)=0:YOFF(I)=0:ZOFF(I)=0:V(I,0 

>«0:V<I,1)=0:X(I)=0:Y(I)=0:Z<I)=0 

1150 NEXT 

1160 RETURK 

1170 ' 

1180 'ANIMATIONS-EDITOR 
1190 ' 

1200 INPUT' 1 Ab Zeile";l:IF I>AA OR I<0 THEN PRINT 11 *** Zeile nicht Vorhand 
«nl ***":PRINT:GOTO 1200 

1210 MODE 2:PRINT"ZEILE XROT YROT ZROT XPOS YPOS ZPOS» 
1220 PRINT" ,, ;USING"###";I;:PRINT": ";USING"##";ALPHA(I);:PRINT" 

";USING"##";BETA(I); :PRINT" ";USING"##";GAMMA(I); :PRINT" ».'US 

1NQ"####";X0FF(1);:PRINT" ";USING"####»;YOFF(I); :PRINT» ";USING"## 
##";ZOFF<I); 

1230 INPUT“ Zeile aendern";Y$:Y$=UPPER$(Y$> 

1240 IF Y$<> M J" AND I+1>AA OR Y$= ,, Q" THEN 420 ELSE IF Y$«»J" THEN 1260 
1250 PRINT TAB(9);:INPUT ALPHA(I):PRINT CHR$(11);STRING$(16,9);:INPUT BE 
TA(I):PRINT CHR$(11);STRING$(24,9);:INPUT GAMMACI):PRINT CHR$(11);STRING 
3(32,9);:INPUT XOFF{I):PRINT CHR$(11);STRING$(40,9);:INPUT YOFF(I):PRINT 
CHRS(11);STRING$(48,9);:INPUT ZOFF<I> 

1260 1=1+1:IF I>AA THEN AA=I 

1270 IF I>127 THEN AA=127:GOTO 420 ELSE 1220 

1200 ' 

1290 'ECKPUNKT EDITOR 
1300 • 

1310 INPUT"Ab Eckpunkt";!:IF I>AK OR I<0 THEN PRINT"*** Eckpunkt nicht 
vorhandenl ***":PRINT:GOTO 1310 

1320 CLS:PEN 3:PRINT 11 ECKPUNKT X Y Z":PEN 1 

1330 PRINT" ";USING"###";1;SPRINT" '*;USING"####";X< I); :PRINT" ";USI 

NU"##W';Y( I); :PRINT" '';USING"####";Z< I); 

1340 INPUT" Aertdern";Y$:Y$=UPPER$(Y$) 

1350 IF Y$<>"J" AND I+1>AK OR Y$=»Q" THEN 420 ELSE IF Y$<>"J" THEN 1370 
1360 PRINT TAB(9);:INPUT X(I):PRINT CHR$(11);STRING$(15,9);:INPUT Y(I):P 
NINT CHR${11);STRING$(22,9);:INPUT Z<I) 

1370 1 = 1+1:1F KAK THEN AK=I 
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1380 IF I>127 THEN AK=127:GOTO 420 ELSE 1330 
1390 1 

1400 'VERB INDUNGS-EDI TOR 
1410 1 

1420 lNPUT"Ab Verbindung";!:IF I>VB OR !<0 THEM PRINT"*** Verbindung 
nicht vorhanden! ***":PRINT:GOTO 1420 
1430 CLS:PEN 3:PRINT"VERBINDUNG PI P2":PEN 1 

1440 PRINT" ";USING"###»;I;:PRINT" ";USING ,I ### I, ;V(1.0); :PRINT» 

";USING"###";V( 1,1); 

1450 INPUT" Aendern";Y$: Y$=UPPER$(Y$) 

1460 IF Y$o»J" AND I+Ij-VB OR Y$="Q" THEM 420 ELSE IF Y$<> ,, J" THEN 1480 
1470 PRINT TAB(13);:INPUT V(1,0):PRINT CHR$(11);STRING$(20,9>;:INPUT V(I 

,D 

1480 1=1+1:IF I>VB THEN VB=I 

1490 IF I>127 THEN VB=127:GOTO 420 ELSE 1440 

1500 ' 

1510 'DEMO EINLESEN 
1520 ' 

1530 GOSUB 1120:RESTORE 2120 
1540 READ AK 

1550 FOR 1=0 TO AK-1:READ X(I),Y(I),Z(I):NEXT 
1560 ' 

1570 READ VB 

1580 FOR 1=0 TO VB-1:READ V(I,0),V(I,1):NEXT 
1590 1 

1600 READ AA 

1610 FOR 1=0 TO AA-1:READ ALPHA(I),BETAd),GAMMA(I),XOFF<I),Y0FFd),ZOFF 
<I):NEXT 
1620 1 

1630 GOTO 420 
1640 ' 

1650 'ANIMATIONS-SCHLEIFE 
1660 • 

1670 ORIGIN 320,200 
1680 FOR K=0 TO AA-1 
1690 ' 

1700 'DISPLAY MANAGEMENT 
1710 1 

1720 OUT &BCOO,12:OUT &BD00.52 
1730 CALL &3FF4 
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1740 OUT &BCOO,12:OUT &BD00.16 
1750 CLS 
1760 1 

1770 PO!=CO! (GAMMA(IO)*CO! (BETA«)) 

1780 P11=SI!(GAMMA«) )*C0!(BETA«)) 

1790 P2I=-SI!(BETA«)) 

1800 P3!=-SI! (GAMMA«) )*C0! (ALPHA«) )+C0!(GAMMA«))*SI!(BETA«))*SI!(ALP 
HA(K)) 

1810 P4!=CO!(GAMMA(IC))*CO!(ALPHA«) )+Sl!(GAMMA«) )*SI!(BETA«))*SI!(ALPH 
A(K>) 

1820 P5!=CO!(BETA«))*SI!(ALPHA«)) 

1830 P6! =SI! (GAMMA«))*SI! (ALPHA(K) )+CO! (GAMMA«) )*SI! (BETA(K))*CO! (ALPH 
A(K)) 

1840 P7! = -CO! (GAMMA«))*SI! (ALPHA«))*SI! (GAMMA«))*SI! (BETA«))*CO! (ALP 
HA«)) 

1850 P8I=CO!(BETA(K))*CO!(ALPHA(K)) 

1860 ' 

1870 'PROJEKTIONS-SCHLEIFE 
1880 ■ 

1890 FOR 1=0 TO V8-1 
1900 J-0:G0SUB 2040 
1910 MOVE XP,YP 
1920 J=1:GOSUB 2040 
1930 DRAW XP,YP 
1940 NEXT 
1950 ' 

1960 NEXT 
1970 * 

1980 OUT &BCOO,12:OUT &BD00.52 
1990 FOR 1=1 TO 10000:NEXT 
*000 GOTO 420 
1010 ' 

2020 '3-0-TRANSFORMATION 
2030 ' 

2040 X0=X(V(I,J)):Y0=Y(V(I,J)):Z0=Z(V(I,J)) 

*050 ZP! =1 - (XO*P2!+YO*P5!+ZO*P8!+ZOFF«))/FP 
2060 XP«(X0*P0!+Y0*P3!+Z0*P6!+XOF F(K))/ZP! 

7070 YP«(X0*P1! +Y0*P4! +Z0*P7! +YOFF«) )/ZP! 

*1180 RETURN 
7090 ' 
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2100 'KOORDINATEN 
2110 ' 

2120 DATA 8 
2130 DATA -50,-50,-50 
2140 DATA -50,50,-50 
2150 DATA 50,50,-50 
2160 DATA 50,-50,-50 
2170 DATA -50,-50,50 
2180 DATA -50,50,50 
2190 DATA 50,50,50 
2200 DATA 50,-50,50 
2210 1 

2220 'VERBINDUNGEN 
2230 ' 

2240 DATA 14 
2250 DATA 0,1 
2260 DATA 1,2 
2270 DATA 2,3 
2280 DATA 3,0 
2290 DATA 4,5 
2300 DATA 5,6 
2310 DATA 6,7 
2320 DATA 7,4 
2330 DATA 0,4 
2340 DATA 1,5 
2350 DATA 2,6 
2360 DATA 3,7 
2370 DATA 0,2 
2380 DATA 1,3 
2390 * 

2400 ANIMATION 
2410 ' 

2420 DATA 25 
2430 DATA 0,0,0,0,0,0 
2440 DATA 1,0,0,0,0,0 
2450 DATA 2,0,0,0,0,0 
2460 DATA 3,0,0,0,0,0 
2470 DATA 4,0,0,0,0,0 
2480 DATA 5,0,0,0,0,0 
2490 DATA 6,0,0,0,0,0 
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2500 

DATA 

7,0,0,0,0,0 

2510 

DATA 

8,0,0,0,0,0 

2520 

DATA 

9,0,0,0,0,0 

2530 

DATA 

10,0,0,0,0,0 

2540 

DATA 

11,0,0,0,0,0 

2550 

DATA 

12,0,0,0,0,0 

2560 

DATA 

13,0,0,0,0,0 

2570 

DATA 

14,0,0,0,0,0 

2580 

DATA 

15,0,0,0,0,0 

2590 

DATA 

16,0,0,0,0,0 

2600 

DATA 

17,0,0,0,0,0 

2610 

DATA 

18,0,0,0,0,0 

2620 

DATA 

19,0,0,0,0,0 

2630 

DATA 

20,0,0,0,0,0 

2640 

DATA 

21,0,0,0,0,0 

2650 

DATA 

22,0,0,0,0,0 

2660 

DATA 

23,0,0,0,0,0 

2670 

DATA 

0,0,0,0,0,0 

2600 

END 



/‘rogrammbeschreibung: 

200-240 Initialisierungs-Block 

Der Speicher wird geschützt, die Bogenmaß-Kal¬ 
kulation ausgeschaltet und alle Vektoren und Ma¬ 
trizen dimensioniert. Weiterhin werden alle Vari¬ 
ablen als Integer deklariert (DEFINT) und die Va¬ 
riable FP (Fluchtpunkt) auf ihren Default-Wert 
gesetzt. 

2M1-340 BIock-Move-Routine in den Speicher laden 

Die in den BASIC-Zeilen 300 bis 340 enthaltenen 
DATA-Elemente werden in den geschützten 
RAM-Bereich ab &3FF4 gePOKEt. 

IM) 380 Sinus- und Cosinus-Tabelle generieren 

Dabei werden die SIN- und COS-Werte in 15- 
Grad-Intervallen ermittelt. Der Laufindex wird da- 
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bei mittels Division durch 15 im Bereich 0 bis 23 
gehalten. 

390-620 Hauptmenü generieren 

Der CPC wird in Grafikmodus 1 gebracht und da¬ 
mit der Bildschirm gelöscht. Danach wird das 
Hauptmenü mit PRINT-Anweisungen auf den 
Bildschirm geschrieben. In den Zeilen 600 und 610 
erfolgt ein Keybordcheck mir anschließender Prü¬ 
fung auf gültige Eingabeparameter. Bei Gültigkeit 
verzweigt Zeile 620 in die angewählte Routine. 

630-830 Objekt generieren 

Die Zeilen 660 bis 680 sind für das Zeichnen des 
Koordinatensystems sowie der Initialisierung aller 
Default-Werte zuständig. Die Zeilen 690 bis 780 
beinhalten die Animierungsschleife des Faden¬ 
kreuzes sowie die Abfrage und Auswertung der 
SHIFT- und RETURN-Tasten. In den folgenden 
Zeilen werden die eingegebenen Koordinaten um 
die Y-Achse gespiegelt und das Ergebnis vernetzt. 

840-950 Objekt laden 

Nach dem Löschen aller Tabellen mittels GOSUB 
1120 werden die ersten drei Byte der in Y$ defi¬ 
nierten Daten in die Variablen AA, AK und VB 
transferiert. AA enthält dann die Anzahl der Ani¬ 
mationssequenzen, AK die Anzahl der Eckpunkte 
und VB die Anzahl der Verbindungen, die in den 
Zeilen 910 bis 930 den einzelnen Tabellen zuge¬ 
ordnet werden. 

960-1070 Objekt sichern 

Die Variablen AA, AK und VB, die als erstes in 
die mittels Y$ definierte Datei geschrieben werden, 
enthalten jeweils die Anzahl der Datenelemente, 
die in der Animation-, Eckpunkt- und Verbin¬ 
dungstabelle gespeichert sind. In den Zeilen 1030 
bis 1050 werden sie aus diesem Grund auch als 
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Laufvariablen in den FOR-NEXT-Schleifen, die 
die Tabelleninhalte auf Diskette schreiben, einge¬ 
setzt. 

1080-1160 Objekt löschen 

Der GOSUB-Befehl in Zeile 1110 ruft die eigent¬ 
liche Lösch-Routine auf und beendet die Funktion 
mit einem Rücksprung in das Hauptmenü (GOTO 
420). Da die Lösch-Funktion als Unterprogramm 
definiert wurde, kann sie von anderen Programmo¬ 
dulen aus aufgerufen werden. 

Die Zeilen 1120 bis 1160 befindet sich die eigent¬ 
liche Lösch-Routine. In ihr werden die Variablen 
AA, AK und VB auf Null gesetzt sowie alle Ta¬ 
bellenwerte innerhalb der FOR-NEXT-Schleife in 
den Zeilen 1130 bis 1150 gelöscht. 

1170-1270 Animations-Editor 

Nachdem die Nummer der ersten Animations-Zeile 
in Zeile 1200 als Index-Variable I definiert wurde, 
wird Ihr Inhalt in Form der Variablen ALPHA(I), 
BETA(I), GAMMA(I), XOFF(I), YOFF(I) und 
ZOFF(I) mittels USING-Anweisungen auf dem 
Bildschirm ausgegeben. In Zeile 1230 bis 1240 er¬ 
folgt dann die Eingabe des EDIT-Parameters nach 
Y$ und die damit verbundene Meldung "Zeile 
Aendern?" sowie seine anschließende Überprüfung 
auf Gültigkeit. 

- Falls sich "J" in Y$ befindet, erfolgt in Zeile 
1250 eine formatierte Eingabe der Variablen 
ALPHA(I), BETA(I), GAMMA(I), XOFF(I), 
YOFF(I) und ZOFF(I) mit INPUT-Anweisung- 
en. 


Bei Identifizierung des Parameter "Q" erfolgt ein 
Rücksprung in das Hauptmenü. Falls sich in Y$ 
nicht "J" befindet und 1+1 größer als der Inhalt 
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der Variablen AA (Maxiines) ist, wird ebenfalls 
in das Hauptmenö verzweigt. 

- Wenn sich ein beliebiges anderes Zeichen in Y$ 
befindet, wird die Zeile 1260 angesprungen. 

In den Zeilen 1260 bis 1270 wird der Laufindex I 
inkrementiert und überprüft, ob sein Inhalt den 
Wert 127 überschreitet. Des weiteren wird - falls 
nötig - die Variable AA (Maxiine) dem Laufindex 
I angepaßt. 

1280-1380 Eckpunkt-Editor 

Nachdem die Nummer des ersten Eckpunktes in 
Zeile 1310 als Index-Variable I definiert wurde, 
wird Ihr Inhalt in Form der Variablen X(I), Y(I) 
und Z(I) mittels USING-Anweisungen auf dem 
Bildschirm ausgegeben. In Zeile 1340 bis 1350 er¬ 
folgt dann die Eingabe des EDIT-Parameters nach 
Y$ und die damit verbundene Meldung "Aen- 
dern?", sowie seine anschließende Überprüfung auf 
Gültigkeit. 

- Falls sich "J2 in Y$ befindet, erfolgt in Zeile 
1360 eine formatierte Eingabe der Variablen 
X(I), Y(I) und Z(I) mit INPUT-Anweisungen. 

- Bei Identifizierung des Parameter "Q" erfolgt ein 
Rücksprung in das Hauptmenü. Falls sich in Y$ 
nicht "J" befindet und 1+1 größer als der Inhalt 
der Variable AK (Maxiines) ist, wird ebenfalls, 
in das Hauptmenü verzweigt. 

- Wenn sich ein beliebiges anderes Zeichen in Y$ 
befindet, wird die Zeile 1370 angesprungen. 

In den Zeilen 1370 bis 1380 wird der Laufindex I 
inkrementiert und überprüft, ob sein Inhalt den 
Wert 127 überschreitet. Des weiteren wird - falls 
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nötig - die Variable AK (Maxiine) dem Laufindex 
I angepaßt. 

1390-1490 Verbindungs-Editor 

Nachdem die Nummer der ersten Verbindung in 
Zeile 1420 als Index-Variable I definiert wurde, 
wird Ihr Inhalt in Form der Variablen V(I,0) und 
V(I,1) mittels USING-Anweisungen auf dem Bild¬ 
schirm ausgegeben. In Zeile 1450 bis 1460 erfolgt 
dann die Eingabe des EDIT-Parameters nach Y$ 
und die damit verbundene Meldung "Aendern?" 
sowie seine anschließende Überprüfung auf Gül¬ 
tigkeit. 

- Falls sich "J" in Y$ befindet, erfolgt in Zeile 
1470 eine formatierte Eingabe der Variablen 
X(I), Y(I) und Z(I) mit INPUT-Anweisungen. 

- Bei Identifizierung des Parameter "Q" erfolgt ein 
Rücksprung in das Hauptmenü. Falls sich in Y$ 
nicht "J" befindet und 1+1 größer als der Inhalt 
der Variable VB (Maxiines) ist, wird ebenfalls 
in das Hauptmenü verzweigt. 

- Wenn sich ein beliebiges anderes Zeichen in Y$ 
befindet, wird die Zeile 1480 angesprungen. 

In den Zeilen 1480 bis 1490 wird der Laufindex I 
inkrementiert und überprüft, ob sein Inhalt den 
Wert 127 überschreitet. Desweiteren wird - falls 
nötig - die Variable VB (Maxiine) dem Laufindex 
I angepasst. 

1500-1630 Demo einiesen 

Nach dem Löschen aller Tabellen (GOSUB 1120) 
und der Positionierung des DATA-Pointers auf den 
Anfang der Demo-Datenblöcke, werden in den 
Zeilen 1540 bis 1610 die DATA-Elemente in die 
Eckpunkt-, Verbindungs-, und Animationstabelle 
geladen. Mit den READ-Befehle vor jeder Schleife 
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werden jeweils Anzahl der Datenelemente+1, die 
die in der nächsten Zeile stehende FOR-NEXT- 
Schleife einzulesen hat, die zugeordnete Maxline- 
Variable geladen (AA, AK oder VB). 

1640-1680 Animationsschleife 

Die FOR-NEXT-Schleife in Zeile 1680 ist für die 
Steuerung der Animationssequenzen verantwortlich. 
Die Lauf variable K repräsentiert in diesem Zu¬ 
sammengang den Animations-Zugriffschlüssel (In¬ 
dex). Das in Zeile 1670 stehende ORIGIN 320,200 
fixiert das Koordinatensystem auf dem Bildschirm- 
Mittelpunkt. 

1690-1750 Display-Management 

Diese Routine ist für die zweiseitige Bildschirm¬ 
verwaltung verantwortlich. Bei diesem Verfahren 
wird die Grafik auf einer unsichtbaren Bild¬ 
schirmseite erstellt, um unnötiges Flackern des Bil¬ 
des zu verhindern. Zeile 1720 schaltet auf die nor¬ 
male Bildschirmseite (&C000 bis &FFFF). Danach 
wird mit CALL &3FF4 der Inhalt des Bildschirms 
in BANK 1 (&4000 bis &7FFF) kopiert. Der OUT- 
Befehl in Zeile 1740 legt den Bildschirmspeicher 
nach &4000 und macht somit den Inhalt von 
BANK 1 sichtbar. Nun kann durch den CLS-Be- 
fehl die normale Bildschirm (&C000 bis &FFFF) 
gelöscht werden. 

1760-1850 Rotations-Parameterdefinition 

In diesen Zeilen werden mit Hilfe von Winkel¬ 
funktions-Tabellen die für die Rotation benötigten 
Parameter PO bis P8 ermittelt. 


1860-2000 Projektions-Schleife 

Sie holt alle Linien eines Objekts aus den Tabellen 
und gibt die Indizes der Start- und Endkoordinaten 
an die 3-D-Transformationsroutine (GOSUB 2040) 
weiter. Die in XP und YP gewonnenen Koordina- 
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ten XI, X2, Y1 und Y2 werden in den Zeilen 1910 
und 1930 für das Zeichnen der Linien verwendet. 

Nach dem Beendigung der Animationssequenz be¬ 
wirken die Zeilen 1980 bis 1990, daß das letzte im 
Bildschirmpuffer vorhandene Bild für einige Se¬ 
kunden auf dem Bildschirm stehen bleibt und be¬ 
trachtet werden kann. 

2010-2080 3-D-Transformation 

Diese Routine berechnet unter Einbeziehung der 
Rotationsparameter PO bis P8, sowie die Flucht¬ 
punkt-Variable FP, die X- und Y-Position eines 
Eckpunktes auf dem Bildschirm in Zentralperspek¬ 
tive. 


2090-2200 Eckpunkte für Demo 

Das erste DATA-Element gibt die Anzahl der fol¬ 
genden DATA-Zeilen an. 

2210-2380 Verbindungen für Demo 

Das erste DATA-Element gibt die Anzahl der fol¬ 
genden DATA-Zeilen an. 

2390-2670 Animationssequenzen für Demo 

Das erste DATA-Element gibt die Anzahl der fol¬ 
genden DATA-Zeilen an. 


2680 Programm beenden 

Dieser END-Befehl darf nicht entfernt werden, da 
ihn die Funktion "Programm beenden" anspringt. 


7.5.1 Programmerweiterungen 

An dieser Stelle möchten wir an Sie einige Anregungen für 3-D- 

1.1 wciterungsmodule weitergeben. Viele dieser Ideen lassen sich 
leider nur in Maschinensprache realisieren. Wir hoffen trotz 
iillodom, daß der interessierte Leser "CPCs World" oder ein 
eigens 3-D-Programm um einige dieser Ideen bereichern kann. 
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Versteckte Kanten (Hidden Lines) 


Alle vorgestellten 3-D-AIgorithmen projizierten auch die nor¬ 
malerweise nicht sichtbaren Kanten eines Objekts auf den Bild¬ 
schirm. Um dies zu verhindern, muß nicht das gewählte Projek¬ 
tionsverfahren geändert, sondern ein sogenanntes "Hidden-Line- 
Modul" in das 3-D-Programm implementiert werden. Das 
"Hidden-Line-Modul" hat die Aufgabe, alle Koordinaten so zu 
manipulieren, daß unsere Projektionsroutine automatisch keine 
"versteckten Kanten" zeichnet. 




Abb. 17: Objekt mit versteckten Kanten: rechts Parallel-, links Zentralper¬ 

spektive 


Es existieren vielfältige Möglichkeiten, einen derartigen Hidden- 
Line-Algorithmus zu realisieren. Beispielsweise können alle im 
Objekt vorkommenden Flächen, mit einem Index versehen, in 
Bezug auf die Z-Achse sortiert und in eine Tabelle eingetragen 
werden. Anhand dieser Tabelle kann dann entschieden werden, 
welche Koordinaten an die Projektionsroutine weitergegeben 
werden dürfen, und welche ignoriert werden müssen. 





i-D-Vektorerafik 


279 


Mehrfarbige Objekte 

lis gibt mehrere Möglichkeiten, die Farbvielfalt des Schneider¬ 
te PC in 3-D-Programme einzubauen. Falls Sie mehrere Objekte 
simultan auf dem Bildschirm animieren, kann beispielsweise je¬ 
dem Wire-Frame eine andere Farbe zugewiesen werden. Wenn 
sich die Animation weiterhin auf ein Objekt begrenzt, besteht 
die Möglichkeit den Verbindungseditor in solch einer Weise zu 
(Indern, daß neben den Verbindungsparametern auch ein Farb- 
pnrameter für jede einzelne Linie definiert werden kann. Eine 
Kombination beider Verfahren ist selbstverständlich ebenfalls 
möglich. 

Die vielleicht interessanteste Farbgebung ist die Einfärbung alle 
Im Objekt vorhandenen Flächen in verschiedene Farben. Dieses 
Verfahren setzt allerdings eine Fill-Funktion sowie einen Hid- 
den-Line-Algorithmus voraus. 


Licht und Schatten 

Besonders faszinierend ist die Definition einer imaginären 
Lichtquelle im dreidimensionalen Raum. Zu diesem Zweck 
müssen die Flächen aller projizierten Objekte mit verschiedenen 
Farben ausgefüllt werden. Flächen, die unter direkter Lichtein¬ 
wirkung stehen, werden mit einer hellen Farbe gefüllt. Ein 
Halbschatten simuliert man am besten mit einer dunklen Farbe. 
Vollschatten werden mit Schwarz und Glanzlichter mit leuchtend 
Weiß dargestellt. 

Neben der komplexen Berechnung von Schatten, Halbschatten, 
diffusen Lichtquellen und Glanzlichern gibt es noch eine weitere 
und gleichzeitig einfach zu realisierende Alternative. Die Farb- 
lielligkeit muß nur in ein richtiges Verhälnis zur Z-Achse ge¬ 
luncht werden. D.h., daß der Fläche mit dem größten Z-Wert 
die hellste, und der Fläche mit dem niedrigsten Z-Wert die dun¬ 
kelste Farbe zugeordnet wird. Eine derartige Schattensimulation 
kann, obwohl ihr mathematischer Ursprung irreal ist, den drei- 
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dimensionalen Effekt Ihrer Grafik vervielfachen. Sie setzt aller¬ 
dings eine Fill-Funktion sowie einen Hidden-Line-AIgorithmus 
vorraus. 


Fließende Animation 

Eine fließende Animation dreidimensionaler Wire-Frames ist - 
wenn überhaupt - nur in Maschinensprache möglich. Das dazu 
notwendige Know-How kann und soll Ihnen dieses Buch nicht 
vermitteln. Das Programmieren in Z80-Maschinensprache ist ein 
Kapitel für sich und muß mit entsprechender Spezialliteratur 
erlernt werden. Für diejenigen, die diesen Schritt bereits 
geschafft haben, wollen wir die wichtigsten Regeln für eine 
möglichst effektive Umsetzung der in BASIC vorgestellten 3-D- 
Algorithmen aufführen. ■ 


1. Bedenken Sie, daß die Z80-CPU ein registerorien¬ 
tierter Prozessor ist. Greifen Sie aus diesem Grund, 
wenn möglich, immer auf ein Register und nicht auf 
Speicherzellen zurück. 

2. Erstellen Sie zeitintensive Routinen immer anhand 
eines Z80-Prozessorhandbuchs. Darin finden Sie die 
Ausführungszeit jedes einzelnen Z80-Befehls. Ver¬ 
suchen Sie, die Gesamtausführungszeit Ihrer Routine 
so gering wie möglich zu halten, indem Sie die 
Taktzyklen aller verwendeten Befehle addieren und 
überprüfen, ob Befehlsketten durch andere Befehle 
mit geringerer Zyklusrate ersetzt werden können. 
Geitzen Sie in diesem Zusammenhang mit jeder Mi¬ 
krosekunde, da sich diese insbesondere in Pro¬ 
grammschleifen schnell addieren! 

3. Schreiben Sie einen eigenen Line-Algorithmus. Der 
DRAW-Befehl des CPC ist zwar schnell, aber es geht 
noch viel schneller. Verzichten Sie im Idealfall auf 
alle Betriebssystemfunktionen (auch auf die Division 
und Multiplikation). 


J-D-Vektorerafik 


281 


4. Realisieren Sie jede Form der Bildschirmausgabe 
immer mit ganzen Bytes (Bit-Masken). 

5. Arbeiten Sie mit soviel Tabellen wie möglich. Be¬ 
denken Sie, daß ein Tabellenelement im Idealfall ein 
Byte lang sein sollte. Auch die Winkelfunktionsta¬ 
bellen sollten aus ein-Byte-Daten bestehen. 


Und zum Schluß noch ein Tip für denjenigen, dem die Pro- 
grnmmumsetzung in Maschinensprache zu aufwendig ist. Eine 
fließende Objektanimtion kann auch im eingeschränktem Maße 
mit einem BASIC-Programm und zwei kleinen Maschinenrouti¬ 
nen erzeugt werden. Wie? Ganz einfach: Nach Berechnung jeder 
Sequenz wird eine kleine Maschinenroutine angesprungen, wel¬ 
che die Daten des 16K-Bildschirms auf ein Minimum kom¬ 
primiert und das Ergebnis auf Diskette wegschreibt. Ist auf diese 
Weise eine vollständige Sequenz gespeichert, braucht lediglich 
ein weiteres Maschinenprogramm alle abgespeicherten und 
kompremierten Bilder in den Speicher zu laden und sie nach¬ 
einander unter Expansion in den Bildschirmspeicher zu transfe¬ 
rieren. 
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8. Darf’s auch etwas mehr sein - Peripherie¬ 
geräte 


Die Erfahrung zeigt, daß Computer selten allein bleiben, son¬ 
dern im Regelfall einen ganzen Park von Gerätschaften nach 
sich ziehen. Angefangen bei Speichererweiterungen und zusätz¬ 
lichen Schnittstellen, die direkt in das Gerät eingebaut werden, 
dützt sich die Expansion bei Peripheriegeräten fort. Um Peri¬ 
pheriegeräte, die im Zusammenhang mit Grafik einen Nutzen 
bringen - wenn man das Wissen um ihre Einsetzbarkeit hat - 
soll es in diesem Kapitel gehen. 


H. 1 Joystickabfrage 

Angeschlossene Joysticks werden vom CPC wie ein Teil der 
T'nstntur behandelt und können deshalb mit denselben BASIC- 
l'linktionen wie die Tastatur abgefragt werden. Neben dieser 
Abfragemöglichkeit kann der Zustand der beiden Joysticks aber 
mich mit JOY(O) und JOY(l) ermittelt werden. Diese Funktionen 
Hofern ein sogenanntes bitsignifikantes Ergebnis, das die Bewe- 
gungsrichtung der Joysticks zum Zeitpunkt der letzten Abfrage 
wiederspiegelt. Bitsignifikant heißt nichts anderes, als daß den 
einzelnen Bits in dem von der JOY-Funktion zurückgelieferten 
Wert eine Bedeutung zukommt. Am Beispiel eines nach vorne 
gedrückten Joysticks soll die folgende Tabelle den Zusammen¬ 
kunft beleuchten: 


Von der JOY-Funktion gelieferter Wert: 00000001 

Bit 3: rechts - 

Bit 2: links - 

Bit 1: rückwärts - 

Bit 0: vorwärts - 
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Der Weg von der Joystickabfrage zu einer Anwendung des Joy¬ 
sticks im Bereich der grafikbezogenen Programmierung ist nicht 
weit. So läßt sich mit dem Joystick eine Markierung - wir wol¬ 
len sie Joystickzeiger nennen - über den Bildschirm bewegen. 
Der Joystickzeiger kann bei der Programmierung eines Mal¬ 
oder Zeichenprogramms die Stelle kennzeichnen, an der der 
Pinsel oder Zeichenstift sich befindet. 

Im folgenden ist ein Programm abgedruckt, das das Prinzip der 
Steuerung eines Joystickzeigers veranschaulicht. Es setzt die 
Bewegungen des Joysticks in pixelgenaue Positionsänderungen 
des Joystickzeigers um. Der Joystickzeiger wird durch ein "X" 
dargestellt, das sich innerhalb des Bildschirmfenster beliebig 
bewegen läßt. Bewegungen, die den Joystickzeiger aus dem 
Bildschirm verschwinden lassen würden, werden vom Programm 
erkannt und unterbunden. 


100 DEFINT A-Z 
110 MODE 1 
120 TAG 
130 X=320 
HO Y=200 
150 XALT=X 
160 YALT=Y 
170 HOVE X,Y 
180 PRINT "X"; 

190 > 

200 J=JOY(0) 

210 IF J=0 THEN 200 
220 ■ 

230 IF (J AND 1)=1 THEN Y=Y+1 
240 IF (J AND 2)=2 THEN Y=Y-1 
250 IF (J AND 4)=4 THEN X=X-1 
260 IF (J AND 8)=8 THEN X=X+1 
270 • 

280 IF X<0 THEN X=0 
290 IF X>623 THEN X=623 
300 IF Y<15 THEN Y=15 
310 IF Y>399 THEN Y=399 
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320 • 

330 HOVE XALT.YALT 
340 PRINT " 

350 ' 

360 MOVE X,Y 
370 PRINT "X"; 

380 1 

390 XALT=X 
400 YALT=Y 
410 ' 

420 GOTO 200 


1‘rogrammbeschreibung: 

100-180 Im Initialisierungsteil des Programms werden alle 
auftretenden Variablen als Integervariablen defi¬ 
niert, MODE 1 gesetzt und die Position für die 
Textausgabe aus die Koordinaten des Grafikcursors 
gebunden. Die Variablen X und Y, die die Grafik¬ 
koordinaten in sich bergen, an denen sich der Joy¬ 
stickzeiger befindet, werden auf ihren Defaultwert 
(Bildschirmmitte) gebracht. Ihre Werte werden den 
Variablen XALT und YALT zugewiesen, in denen 
die alte Position des Joystickzeigers gepuffert wird. 
Am Ende dieses Programmteils wird der Grafik¬ 
cursor mit den Parametern X und Y gesetzt und 
der Joystickzeiger in Gestalt eines "X" auf den 
Bildschirm geschieben. 

190-210 Mit der BASIC-Funktion JOY(O) wird der Status 
des Joysticks ermittelt und der Variablen J zuge¬ 
wiesen. Hat J den Wert 0, i.e. der Joystick verharrt 
in Ruhestellung, dann erfolgt der" Rücksprung zur 
erneuten Joystickabfrage. 

220-260 Die Bits 0 bis 3 der Variablen J werden auf gesetzt 
bzw. nicht gesetzt überprüft und gemäß der durch 
sie wiedergespiegelten Joystickbewegung die Koor¬ 
dinaten für den Joystickzeiger aktualisiert. 
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270-310 In diesen Programmzeilen wird überprüft, ob die 
entstandene Position außerhalb des Bildschirms lie¬ 
gen würde, und berichtigt, sollte dies zutreffen. 

320-Ende Die verbleibenden Programmzeilen löschen den 
Joystickzeiger an den alten Bildschirmposition 
(XALT, YALT) und setzen ihn mit den aktuellen 
Koordinaten (X, Y). Ist der Joystickzeiger auf den 
Bildschirm gebracht, so werden die aktuellen Ko¬ 
ordinaten zu alten und das Programm geht in eine 
Schleife. 


8.2 Der Lightpen 

Ein Peripheriegerät, dem immer noch ein etwas exklusiver 
Touch anhaftet, und von dem man sagt, daß es professionellen 
Systemen Vorbehalten ist, ist der Lightpen. Dieses Gerät ist dem 
äußeren Anschein nach nicht viel mehr als ein Stift aus dem ein 
Kabel ragt, dessen Ende mit dem Computer verbunden ist. Be¬ 
trachtet man die Spitze des Stifts genauer, so entdeckt man dort 
einen kleinen optischen Sensor, der das entscheidende Teil im 
Gefüge des Lightpens ist. 

Die Funktionsweise des Lightpens ist einfach. Wird er mit der 
Spitze, in der sich der optische Sensor befindet, auf den Bild¬ 
schirm des Computers gehalten, so erzeugt er jedesmal, wenn 
der Kathodenstrahl der Bildröhre seine Position bestreicht, einen 
Impuls. Dieser Impuls kann vom Computer mit einem geeigneten 
Programm ausgewertet und so auf die Position des Lightpens auf 
dem Bildschirm geschlossen werden. Aus dieser Funktionsweise 
ergeben sich eine Reihe von Anwendungsmöglichkeiten für den 
Lightpen. Sie reichen von einfacher Menüauswahl bis hin zum 
Zeichnen auf dem Bildschirm. 

Daß der Lightpen nicht nur professionellen Systemen Vorbehal¬ 
ten ist, sondern sich auch hervorragend für den CPC einsetzen 
läßt, soll dieses Kapitel zeigen. Am Anfang unserer Exkursion 
soll der Selbstbau eines einfachen Lightpens stehen, der sich lei- 
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der nur für den Betrieb mit einem Farbmonitor eignet, und an 
deren Ende ein Programm, das den Einsatz des Lightpens am 
Hoispiel einer Menüauswahl verdeutlichen soll. 

Zum Aufbau des Lightpens sind nur ein paar Bauteile nötig, die 
In jedem Elektronikladen erhältlich sein dürften. Die Schaltung 
kann mit geringem Aufwand auch von Ungeübten auf einem 
Stück Lochrasterplatte, die ebenfalls im Elektronikladen zu be¬ 
kommen ist, aufgebaut werden. Nicht mit auf- die Platine darf 
der Fototransistor BPX 81 gelötet werden; er soll vielmehr durch 
ein Stück zweiadrige Litze mit der übrigen Schaltung verbunden 
werden. 

Der Fototransistor, dessen lichtempfindliche Seite beim Betrieb 
zum Bildschirm weisen muß, sollte, da er klein und leicht zu 
zerstören ist, in ein Gehäuse eingebracht werden. Hervorragend 
geeignet für der BPX 81 ist ein Kunststoffkugelschreiber, der 
zuvor von allen Innereien befreit wurde. Das Loch an der Spitze 
des Stifts muß mit einer kleinen Feile oder einem spitzen Messer 
NO nusgearbeitet werden, daß das Gehäuse des Fototransistors mit 
zuvor angelöteten Anschlüssen darin eingeklebt werden kann. 
Vorsicht beim Einkleben, daß kein Klebstoff auf die lichtemp¬ 
findliche Stelle des Bauteils tropft, was seine Funktionstüchtig- 
kolt erheblich beeinträchtigen würde. 

Ist die Schaltung aufgebaut, der Fototransistor eingeklebt, so 
verbleibt im Grunde nur der Anschluß des Ganzen an den 
Schncider-CPC. Dazu sollte unbedingt eine geeignete Steckver¬ 
bindung verwendet werden, auch wenn sie der größte Kosten- 
fttklor beim Lightpen ist. Lassen Sie sich beim Anlöten der Ka¬ 
bel zwischen Platine und Steckverbindung nicht von den Be¬ 
schriftungen der Pins leiten, die auf einigen Steckverbindern 
nufgedruckt sind. Der Schneider weißt eine Benennung der Pins 
ttuf, die vom üblichen Standard abweicht. 

Drei Anschlüsse der 50-poligen-Steckverbindung sind für den 
l ightpen relevant: da ist Pin 27 mit der positiven Betriebsspan¬ 
nung (5 Volt), Pin 49 Masse und Pin 47, der die Bezeichnung 
I Ightpen trägt. Mit der Erwähnung dieses Anschlusses sind wir 
zur lleschreibung der Schaltung des Lightpens vorgedrungen. 
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Beim Betrieb der Schaltung wird der Fototransistor auf den 
Bildschirm des CPC gehalten. Jedesmal wenn der Kathodenstrahl 
beim Bildaufbau die Stelle erreicht, an die der Lightpen gehalten 
wird, registiert der Fototransistor den Lichtimpuls des vorbei¬ 
streichenden Kathodenstrahls. Da der vom Fototransistor ausge¬ 
hende Impuls für eine weitere Auswertung zu schwach ist, wird 
er durch den Darlington-Transistor BC 517 verstärkt. Mit dem 
verstellbaren 10-K-Widerstand kann die Empfindlichkeit des 
Lightpens eingestellt werden. Der so aufbereitete Impuls gelangt 
schließlich an den TTL-Schwellwertschalter, der dem Impuls 
einen TTL-Pegel verleiht. Um aus dem Impuls einen Impuls mit 
Low-High-Flanke zu gewinnen, muß der Impuls mit dem zwei¬ 
ten Gatter invertiert werden. Soweit der Weg vom durch den 
Kathodenstrahl erregten Impuls durch die Elektronik des Light¬ 
pens zu Pin 47 (Lightpen) des CPC. 

Tritt an Pin 47 eine Low-High-Flanke auf, dann wird der ak¬ 
tuelle Zustand der Memory-Adress-Lines in das Lightpen-Regi- 
ster des Video-Controllers übertragen und gespeichert. Über die 
Memory-Adress-Lines werden die Speicherplätze im Bild¬ 
schirmspeicher adressiert und so ist es umgekehrt möglich über 
ihren Zustand auf die Position des Lightpens auf dem Bild¬ 
schirm zum Zeitpunkt des Impulses zu schließen. Der im Light- 
pen-Register gespeicherte Zustand der Memory-Adress-Lines 
kann von einem Programm ausgelesen und verwertet werden. 

Sollte Ihnen die Beschreibung der Vorgänge, die mit dem Be¬ 
trieb des Lightpens verbunden sind etwas unwohl sein, so kön¬ 
nen wir Sie beruhigen: Auch ohne ihre genaue Kenntnis können 
Sie sich an den Bau des Lightpens wagen. 
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Bauteilliste: 

TTL-IC 7413 
14-pol.-IC-Sockel 

Transistor BC 517 

Fototransistor BPX 81 

10K-Trimmer 

1K-Festwiderstand 
5K6-Festwiderstand 

Steckverbindung für Expansionport 
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Masse 


|— Lightpen j— 

49 47 45 43 41 39 37 35 33 31 29 27 25 23 21 19 17 15 13 11 9 7 5 3 1 


+5 Uolt 


50 48 46 44 42 40 38 36 34 32 30 28 26 24 22 20 18 16 14 12 10 8 6 4 2 

Rückansicht 

Abb. 19: Der Expansionport des CPC 


Nachdem Sie nun den Lightpen - hoffentlich mit Erfolg - auf- 
gebaut haben, wollen wir Ihnen ein kleines Programm vorstellen, 
mit dem Sie zum einen den Lightpen testen können und mit 
dessen Hilfe Sie zum anderen erfahren, wie er von einem Pro¬ 
gramm abgefragt werden kann. Das Programm ist wie schon 
erwähnt eine Menüauswahl. Wir haben nur das grobe Gerüst 
einer Menüauswahl realisiert, das Sie selbst zu einem vollständi¬ 
gen Benutzerprogramm mit Lightpen gesteuerter Auswahl der 
Optionen ausbauen können. 

Das Programm bringt fünf zur Auswahl stehende Menüpunkte 
auf den Bildschirm und beginnt dann unmittelbar mit der 
Abfrage des Lightpen. Tippt man mit dem Lightpen auf einen 
der Menüpunkte - der Farbbildschirm sollte auf maximale Hel¬ 
ligkeit und der Trimmer auf der Lightpenplatine auf maximale 
Empfindlichkeit stehen - und betätigt gleichzeitig eine beliebige 
Taste auf der Tastatur des CPC, dann verzweigt das Programm 
in das durch die Menüauswahl bestimmte Unterprogramm. Dort 
führt es eine Warteschleife aus, die für die in diesem Unterpro¬ 
gramm ablaufenden Vorgänge steht, und kehrt danach wieder zu 
Abfrage des Lightpens zurück. 
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100 MODE 1 
110 INK 0,26 
120 INK 1,0 
130 BORDER 26 
140 ■ 

150 FOR 1=1 TO 5 
160 LOCATE 15,1*4+1 
170 PRINT "MENUEPUNKT";I 
180 NEXT 
190 ' 

200 GOSUB 270 
210 ' 

220 V=INT((P+82)/164) 

230 IF INKEYSo»» THEN CLS:0N V GOSUB 360,390,420,450,480 ELSE GOT 
O 200 
240 CLS 
250 1 

260 GOTO 150 
270 ■ 

280 'LIGKTPEN ABFRAGEN 
290 ' 

300 OUT &BC00,16: PH=INP(&BF00) 

310 OUT &BC00.17: Pl=INP(&BF00) 

320 • 

330 P=(256*PH+PL) AND &3FF 
340 ' 

350 RETURN 

360 PRINT “UNTERPROGRAMM 1" 

370 FOR 1=1 TO 1000:NEXT 
380 RETURN 

390 PRINT “UNTERPROGRAMM 2" 

400 FOR 1=1 TO 1000:NEXT 
410 RETURN 

420 PRINT "UNTERPROGRAMM 3" 

430 FOR 1=1 TO 1000:NEXT 
440 RETURN 

450 PRINT "UNTERPROGRAMM 4“ 

460 FOR 1=1 TO 1000:NEXT 
470 RETURN 
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480 PRINT "UNTERPROGRAMM 5" 

490 TOR 1=1 TO 1000:NEXT 
500 RETURN 


Der entscheidender Bestandteil der Menüauswahl mit dem 
Lightpen sind die Programmzeilen 270-330, hier findet die 
Abfrage des Lightpens statt. Wenn Sie das Programm nur nutzen 
wollen, dann können Sie die vorgestellte Methode zur Abfrage 
des Lightpen in der vorgestellten Weise übernehmen, wenn Sie 
aber genau wissen wollen, wozu die vom Programm ausgelesenen 
Register gut sind, so sollten Sie in Kapitel 9.2 nachschlagen. 


8.3 Grafik-Hardcopy 

Besonders oft kommt es im Zuge der Grafikprogrammierung 
vor, daß man etwas auf dem Bildschirm erstellt hat und gern 
schwarz auf weiß auf den Drucker ausgeben möchte. Gemeint 
ist "Eine Hardcopy vom Bildschirm machen", wie dieser Vorgang 
in Fachkreisen genannt wird. Dabei wird mit einem geeigneten 
Programm der Bildschirminhalt gelesen und auf dem Drucker 
ausgegeben. 

Grundsätzlich unterscheidet man zwei Arten von Hardcopyrouti¬ 
nen: Da ist als erste die sogenannte Text-Hardcopy, die ihren 
Name daher trägt, weil mit ihr nur die Bildschirminhalt auf dem 
Drucker ausgegeben werden können, die aus Textzeichen beste¬ 
hen. Diese Art der Hardcopyroutinen hat durch die begrenzte 
Anzahl von Zeichen den Vorteil, schneller zu sein, als die 
zweite, die Grafik-Hardcopy genannt wird. Eine Grafik-Hard¬ 
copyroutine zeichnet sich aber dadurch aus, daß mit ihr der 
Bildschirminhalt, egal ob Text oder Grafik, auf dem Drucker 
ausgegeben werden - zumindest gilt dies uneingeschränkt für die 
Schneider-CPCs, da sie bekanntlich auch Text als Grafik 
darstellen. 

Trotz des komfortablen Betriebsystems hat der Schneider keine 
Hardcopyroutine mit auf den Weg bekommen, so daß es an uns 
ist, Sie mit einem solchen Utility zu versorgen. Natürlich haben 
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wir eine Routine 1 gewählt, die mit den Merkmalen einer Gra- 
fik-Hardcopyroutine behaftet ist, um Ihnen die Möglichkeit zu 
bieten, sowohl Text als auch Grafiken auszudrucken. 

Weil die Grafik-Hardcopyroutine ganz massiv auf die Fähigkei¬ 
ten des Druckers eingehen muß und bekanntermaßen nicht alle 
Drucker gleich sind, mußte unter den sich anbietenden Druckern 
eine Auswahl getroffen werden. Die Entscheidung fiel zunächst 
auf den Drucker NLQ 401. Da dieser Drucker aber erstaunlich 
kompatibel zu den Druckern von EPSON ist, arbeitet das Pro¬ 
gramm auch mit den Drucker EPSON MX/RX/FX sowie allen 
Kompatiblen. Sollten Sie keinen dieser Drucker besitzen, so muß 
das nicht heißen, daß die Routine auf Ihrem Drucker nicht 
läuft, sondern nur, daß wir es nicht ausprobiert haben - das 
müssen wir dann schon Ihnen überlassen. 

Betrachtet man das was eine Hardcopyroutine leisten muß, so ist 
unmittelbar einsichtig, daß sie nur in nensprache geschrie¬ 

ben werden kann. Damit die BASIC-Programmierer unter Ihnen 
aber nicht leer ausgehen, wollen wir neben dem Assemblercode 
auch mit einem BASIC-Lader aufwarten, der die Hardcopyrou- 
tino in den RAM-Speicher des CPCs einschreibt. Dort kann sie 
dann auch von BASIC aus aufgerufen werden. 

Nach dem Start des abgedruckten BASIC-Laders wird die in 
hexadezimaler Form in den DATA-Statements enthaltene Hard¬ 
copyroutine in den RAM-Speicher des CPC gebracht. Dort steht 
sie dann ab Adresse &A000 und sollte gegebenenfalls gegen 
Oberschreiben durch BASIC geschützt werden. Will man vom 
aktuellen Bildschirminhalt eine Hardcopy anfertigen, so genügt 
ein Aufruf der Routine mit CALL &A000. 


100 1 GRAF I IC-HARDCOPY 
110 1 

120 FOR A=&AOOO TO &A0BF 
130 READ D 
140 POKE A,D 


I 


Quelle: CPC 664/6X28 Intern, DATA BECKER, 1985, Seite 158 
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150 Z=Z+D 
160 NEXT A 
170 • 

180 DATA &CD,&BA,&BB,&CD,&E 7,&BB,&32,&BD 
190 DATA &A0,&CD,&6C,&A0 ( 8(21 ,&8F,&01 ,&22 
200 DATA &BE,&A0,&11,&00,&00,&3E,&07,&32 
210 DATA &CO,&AO,&CD,&7C,&AO,&OE,&00,&3A 
220 DATA &C0,&A0,&47,&E5,&D5,&C5,&CD,&F0 
230 DATA &BB,&C1,&D1,&21,&BD,&A0,&BE,&E1 
240 DATA &37 f &20,&01,&A7,&CB,&11.&2B.&2B 
250 DATA &10,&E9,&CD,&AF,&A0,&79,&CD,&A6 
260 DATA &A0,&13,&E5,&21,&7F,&02,&37,iED 
270 DATA &52,&E1,&38,£05,&2A,&BE,&A0,&18 
280 DATA &CC,&23,&7C ( &B5,&C8,&2B,&11,&00 
290 DATA &00,&22, &8E,&A0,&3E,&07,&BD,&20 
300 DATA &B9,&7C,&B4,&20,&B5,&3E,&04,832 
310 DATA &C0,&A0,&18,&AE,&3E,&1B,&CD,&A6 
320 DATA &AQ,&3E,&31,&CD,&A6,&AO,&00,&00 
330 DATA &00,&00,&00,&C9,&E5,&3E,&42,&CD 
340 DATA &1E,&BB,£E1,&28,&02,&E1,&C9,&3E 
350 DATA &0D,&CD,&A6,&A0,£3E,&0A,&CD,&A6 
360 DATA &A0,&3E,&1B,&CD,&A6,&A0 / &3E > &4C 
370 DATA &CD , &A6 , &A0,&3E,&7F,&CD,&A6,&A0 
380 DATA &3E,&02,&CD f &A6,&A0 1 &C9,&CD f &2E 
390 DATA &BD,&38, &F B,&CD,&2B,&BD,&C9,&3A 
400 DATA &C0,&A0,&FE,&07,&C8,&AF,&CB,£11 
410 DATA &CB,&11 ( &CB,£11,&C9,£00,&00,&00 
420 1 

430 IF Z<>23151 THEN PRINT "ERROR IN DATAS" 


Wenn Sie über Kenntnisse in Maschinensprache verfügen, wird 
Ihnen das Assemblerlisting die Arbeitsweise der Routine ver¬ 
deutlichen. Mit seiner Hilfe wird es Ihnen auch möglich sein, 
die Routine an Drucker anzupassen, mit denen sie in der 
vorgestellten Form nicht ausdruckt. Sie sollten bei Ihrer Arbeit 
unbedingt der Tatsache Rechnung tragen, daß der CPC nur 
einen 7-Bit-Druckeranschluß besitzt, woraus sich einige Kom¬ 
plikationen für die Hardcopyroutine ergeben. 
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So ist es bedingt durch den 7-Bit-Anschluß nur möglich, sieben 
Punkte, die untereinander liegen, gleichzeitig zu drucken. Die 
Grafik des CPC setzt sich aber aus 200 Punkten in vertikaler 
Richtung zusammen, die nicht ohne Rest durch sieben teilbar 
sind. Die verbleibenden vier Punktreihen müssen daher von der 
Hardcopyroutine gesondert bearbeitet werden. 

Rin weiteres Problem, das der 7-Bit-Anschluß mit sich bringt, 
liegt in der Befehlsübermittlung an den Drucker. Das Einschal¬ 
ten des Grafikmodus mit ESC L würde für die 640 Punkte einer 
Bildschirmzeile, die von der Hardcopyroutine erfaßt werden 
müssen, die Steuersequenz 


PRINT #8.CHR$(27); ,, L ,, ;CHR$C128);CHR$(2) 


erfordern. Die in der Sequenz enthaltene Zahl 128 läßt sich 
nicht in 7 Bits darstellen und ist so auch nicht an den Drucker 
übertragbar. Um dieses Problem zu lösen, haben wir speziell für 
die Hardcopyroutine den Bildschirm künstlich um eine senk¬ 
rechte Punktreihe verkürzt. Die letzten Punkte werden beim 
Ausdruck einfach ignoriert wird - so ist aus der 128, zum Ein- 
»chalten des Grafikmodus eine 127 geworden, die über den 7- 
Bit-Anschluß an den Drucker übertragen werden kann. 


AOOO 

CD 

BA BB 

CALL 

&BBBA 

;GRAFIKMODUS EINSCHALTEN 

A003 

CD 

E7 BB 

CALL 

&BBE7 

.■HINTERGRUNDFARBE BESTIMMEN 

A006 

32 BD AO 

LD 

(&A0BD ),A 


A009 

CD 

6C AO 

CALL 

&A06C 

;DRUCKER AUF 7/72 ZOLL 

AQQC 

21 

8F 01 

LO 

HL.&018F 

;WIR FANGEN OBEN UND 

A00F 

22 

BE AO 

LD 

(&A0BE),HL 


A012 

11 

00 00 

LD 

DE.&G000 

;LINKS AN ZU DRUCKEN 

A015 

3E 

07 

LD 

A.&07 

;UND ZUAR MIT 7 NADELN 

A017 

32 

C0 A0 

LD 

(&A0C0),A 


AÖ1A 

CD 

7C A0 

CALL 

&A07C 

;ESC-SEQUENZ FÜR GRAFIK 

AU1D 

OE 

00 

LD 

C.&00 

;C ENTHÄLT BITMUSTER 

A01F 

3A 

C0 A0 

LD 

A,(&A0C0) 


Af)22 

47 


LD 

B,A 

;B=DOTREIHENZÄHLER 
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A023 

ES 


PUSH 

HL 


A024 

D5 


PUSH 

DE 


A025 

C5 


PUSH 

BC 


A026 

CD 

FO BB 

CALL 

&B8F0 

■FARBE DES PIXELS BEI (HL,DE) 

A029 

Ci 


POP 

BC 


A02A 

Dl 


POP 

DE 


A02B 

21 

BD A0 

LD 

HL,8A0BD 


A02E 

BE 


CP 

(HL) 

■PIXELFARBE=HINTERGRUND FARBE? 

A02F 

El 


POP 

HL 


A030 

37 


SCF 


WENN PIXELOPAPER, DANN 

A031 

20 

01 

JR 

NZ,$ 3 >&A034 

CARRY SETZEN SONST 

A033 

A7 


AND 

A 

CARRY LÖSCHEN 

A034 

CB 

11 

RL 

C 

CARRY INS UNTERSTE BIT 

A036 

2B 


DEC 

HL 

DES C-REGISTERS SCHIEBEN, 

A037 

2B 


DEC 

HL 

HL=KL-2, NÄCHSTER PUNKT 

A038 

10 

E9 

DJNZ 

$-21 >&A023 

ALLES 7 MAL 

A03A 

CD 

AF AO 

CALL 

&A0AF 

SONDERBEKANDLUNG DER LETZTEN 

A03D 

79 


LD 

A,C 

BITMUSTER, IN AKKU ÜBERTRAGEN 

A03E 

CD 

A6 AO 

CALL 

&A0A6 

UND DRUCKEN 

A041 

13 


INC 

DE 


A042 

ES 


PUSH 

HL 


A043 

21 

7F 02 

LD 

HL.&027F 

■EINE ZEILE GEDRUCKT? 

A046 

37 


SCF 



A047 

ED 

52 

SBC 

HL,DE 


AQ49 

El 


POP 

HL 


A04A 

38 

05 

JR 

C,$ 7 >&A051 


A04C 

2A 

BE AO 

LD 

HL,(&AOBE) 


A04F 

18 

CC 

JR 

$-50 >&A01D 


A051 

23 


INC 

HL 

■SONDERBEHANDLUNG DER 

A052 

7C 


LD 

A,H 

■LETZTEN 4 

A053 

B5 


OR 

L 


A054 

C8 


RET 

Z 


A055 

2B 


DEC 

HL 


A056 

11 

00 00 

LD 

DE,&0000 

■VORBEREITEN DER NÄCHSTEN 

A059 

22 

BE AO 

LD 

(&A0BE),HL 

DRUCKZEILE 

A05C 

3E 

07 

LD 

A,&07 


A05E 

BD 


CP 

L 

LETZTE 7ER REIHE? 

A05F 

20 

B9 

JR 

NZ,$-69 >SA01A 


A061 

7C 


LD 

A,H 


A062 

B4 


OR 

H 
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»063 

20 B5 

JR 

NZ,$-73 >&A01A 


»065 

3E 04 

LD 

A.&04 

;DANN NUR NOCH 4 REIHEN 

»067 

32 CO A0 

ID 

(&AOCO), A 


»06» 

18 AE 

JR ’ 

$-80 >&A01A 


A06C 

3E 1B 

LD 

A.&lB 

;FÜR NLQ/MX/RX/FX 

A06E 

CD A6 AO 

CALL 

&A0A6 

;ESC A 7, UM DEN RICHTIGEN 

»071 

3E 31 

LD 

A.&31 

;ZEILENVORSCKUB ZU BEKOMMEN 

»073 

CD A6 AO 

CALL 

&A0A6 


»076 

00 

NOP 



»077 

00 

NOP 



»078 

00 

NOP 



»079 

00 

NOP 



»07» 

00 

NOP 



A07B 

C9 

RET 



A07C 

E5 

PUSH 

HL 

;DEL-TASTE GEDRÜCKT? 

A07D 

3E 42 

LD 

A,&42 

;WENN JA, DANN ABBRUCH 

A07F 

CD iE BB 

CALL 

&BB1E 


»082 

El 

POP 

HL 


»063 

28 02 

JR 

Z,$ 4 >&A087 

;DEL WAR NICHT GEDRÜCKT 

»065 

El 

POP 

HL 

;STACK MANIPULIEREN 

»066 

C9 

RET 


;UM AN RET ZU GELANGEN 

»067 

3E OD 

LD 

A.&OD 

;CR/LF AUSGEBEN 

»089 

CD A6 AO 

CALL 

&A0A6 


A08C 

3E OA 

LD 

A.&OA 


»QBE 

CD A6 AO 

CALL 

&A0A6 


»091 

3E 1B 

LD 

A.&1B 

;ESC L 127 2=GRAFIK 

»093 

CD A6 AO 

CALL 

&A0A6 

;MIT 639 PUNKTEN 

»096 

3E 4C 

LD 

A,&4C 


»096 

CD A6 AO 

CALL 

&A0A6 


A09B 

3E 7F 

LD 

A.&7F 


»09D 

CD A6 AO 

CALL 

&A0A6 


»0A0 

3E 02 

LD 

A,&02 


»0A2 

CD A6 AO 

CALL 

&A0A6 


A0A5 

C9 

RET 



A0A6 

CD 2E BD 

CALL 

&BD2E 

;DRUCKER BUSY? 

»0A9 

38 FB 

JR 

C,$-3 >&A0A6 


A0»B 

CD 2B BD 

CALL 

&BD2B 

.•ZEICHEN DRUCKEN 

»0A£ 

C9 

RET 



»OAF 

3A CO AO 

LD 

A,(&AOCO) 

.•BEHANDLUNG DER LETZTEN 

»0112 

FE 07 

CP 

&07 

;VIER DOTREIHEN 
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A0B4 

C8 


RET 

Z 

A0B5 

AF 


XOR 

A 

A0B6 

CB 

11 

RL 

C 

A088 

CB 

11 

RL 

c 

AOBA 

CB 

11 

RL 

c 

aobc 

C9 


RET 


AOBD 

00 


DEFB 

00 

AOBE 

00 

00 

DEFU 

0000 

AOCO 

00 


DEFB 

00 


8.4 Spruchband 


;DREI MAL 0 ÜBER CARRY 
;IN C-REGISTER SCHIEBEN 


Wenn Sie Ihren Worten zu gegebenen Anlaß einmal besonderen 
Nachdruck verleihen wollen, so können Sie das mit diesem Pro¬ 
gramm wirkungsvoll machen. Es erzeugt auf dem Drucker ein 
Spruchband mit übergroßen Lettern, dessen Text Sie frei 
bestimmen können. Die einzelnen Buchstaben sind im Extremfall 
80 normale Druckzeichen hoch und werden quer zur üblichen 
Schreibrichtung des Druckers ausgegeben. Da das Programm je 
nach Länge des eingegebenen Textes ganz beachtliche Papier¬ 
mengen verschlingen kann, ist es unbedingt ratsam, Endlospapier 
zu verwenden. 

Die Bedienung des Programms ist denkbar einfach: Nach dem 
Start mit RUN wird der Benutzer aufgefordert, den Text ein¬ 
zugeben. Die eingetippten Buchstaben werden ist der ersten 
Zeile des Bildschirms mitgeschrieben. Hat man sich bei der Ein- - 
gäbe einmal vertan oder möchte den bereits eingegebenen Text 
verändern, so kann mit der DEL-Taste der Text Zeichen für 
Zeichen gelöscht werden. 

Ist der Text vollständig eingegeben, so wird durch Betätigen der 
RETURN-Taste die Druckausgabe eingeleitet. Belegt der Text 
die 80 Zeichen der ersten Zeile vollständig, so beginnt das Pro¬ 
gramm bei Überschreiten der letzten Zeichenposition automa¬ 
tisch mit der Druckausgabe. 

Während der Druckausgabe tastet das Programm die gesetzten 
Bildpunkte in der ersten Bildschirmzeile ab und bringt sie in 



Darf's auch etwas mehr sein - Perioherieeeräte 


299 


vergrößerter Form auf den Drucker. Jeder gesetzte Bildpunkt 
wird zu einem Feld von 10 mal 5 Doppelkreuzen. Durch dieses 
Abtastverfahren kann jeder Inhalt der ersten Bildschirmzeile 
ausgedruckt werden; Sie sind also bei diesem Programm nicht an 
die Zeichen des im CPC integrierten Zeichensatzes gebunden, 
sondern können Ihren eigenen Zeichensatz verwenden. Mit ei¬ 
nem modifizierten Zeichensatz und kleinen Grafikelementen, die 
sich in der Größe eines Charakters in den Text einbringen las¬ 
sen, können mit dem Programm "Spruchband" recht, reizvolle Er¬ 
gebnisse erzielt werden. 


100 1 ************************************************************ 
H0 i*** *** 

120 '*** SPRUCHBAND JST 5.8.1986 *** 

130 **** *** 

140 1 ************************************************************ 
150 ■ 

160 MOOE 2 
170 • 

180 CLS 
190 ■ 

200 DIM MATRIX(639,7) 

210 ' 

220 START=1 

230 PUNKT$=STRING$(10,) 

240 BLANK$=SPACE$(10) 

250 • 

260 'TEXT EINGEBEN 
270 ' 

280 LOCATE 1,10 

290 PRINT “GEBEN SIE DEN TEXT EIN:“ 

300 ' 

310 IF START<=1 THEN START=1 
320 ' 

330 FOR POSITION=START TO 80 
340 1 

350 LOCATE POSITION,1 
360 PRINT " 

370 ' 
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380 2EICHEN$=INKEYS 

390 1F ZEICHENS 311 " THEN 380 

400 IF ASC(ZEICHEN$)=127 THEN START=POSITION-1:G0TO 310 
410 IF ASC(ZEICHEN$)=13 THEN GOTO 480 
420 ' 

430 LOCATE POSITION,1 
440 PRINT ZEICHENS; 

450 ' 

460 NEXT POSITION 
470 ' 

480 'SPRUCHBAND ERZEUGEN 
490 1 

500 ENDE=((POSITION-1)*8)-8 
510 IF ENDE<0 THEN END 
520 • 

530 FOR INDEX=0 TO ENDE STEP 8 
540 ■ 

550 'ZEICHEN VOM BILDSCHIRM LESEN 
560 ' 

570 FOR SPALTE 3 INDEX TO INDEX+7 
580 FOR ZEILE=0 TO 7 
590 ' 

600 MATRIX(SPALTE,ZEILE)=TEST{SPALTE,399-ZEILE*2) 

610 • 

620 NEXT ZEILE 
630 NEXT SPALTE 
640 ' 

650 'DRUCKERAUSGABE 
660 ' 

670 FOR ZEILE=INDEX TO INDEX+7 
680 FOR MULT1=1 TO 5 
690 FOR SPALTE=7 TO 0 STEP -1 
700 ' 

710 IF MATRIX(ZEILE,SPALTE)=1 THEN PRINT #8,PUNKTS; ELSE PRINT #8, 
BLANKS; 

720 ' 

730 NEXT SPALTE 
740 ■ 

750 PRINT #8 
760 ' 
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770 NEXT MULTI 
780 NEXT ZEILE 
790 ' 

800 NEXT INDEX 


Programmbeschreibung: 

100-240 Definitionen, Dimensionierungen 1 und Vorbele¬ 
gungen. Zur Bildschirmausgabe wird MODE 2 mit 
80-Zeichen-Darstellung gewählt. Die doppeltindi¬ 
zierte Variable MATRIX wird auf 640 mal 8 Fel¬ 
der dimensioniert; sie soll im Verlauf des Pro¬ 
gramms die vom Bildschirm gelesenen - 
Zeichenmatrizen aufnehmen. 

Die Hilfsvariable START wird mit dem Wert I 
vorbelegt, der einen Hinweis auf die Position gibt, 
an der mit der Ausgabe des Spruchbandes auf dem 
Bildschirm begonnen werden soll. 

Den Variablen PUNKTS und BLANKS werden 
zehn Doppelkreuze bzw. zehn Leerzeichen zuge¬ 
wiesen. Diese Variablen werden bei der geeignet 
vergrößerten Ausgabe der Zeichenmatrizen auf 
dem Drucker Verwendung finden. 

250-460 Text eingeben 

Dieser. Programmteil dient dazu, den Text, der 
später auf dem Spruchband erscheinen soll, auf 
dem Bildschirm auszugeben und gegebenfalls zu 
editieren. Genau dazu fordert das Programm seinen 
Benutzer in Zeile 290 auf. Die Eingabe des Textes 
erfolgt Buchstabe für Buchstabe innerhalb der 
FOR-TO-NEXT-Schleife, die von Zeile 330 bis 
Zeile 460 reicht. Zunächst wird der Buchstabe an 
der aktuellen Schreibposition auf dem Spruchband 
(POSITION) gelöscht (wichtig für das Editieren) 
und danach eine Eingabe von der Tastatur entge- 
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gengenommen. Diese Eingabe wird in vier ver¬ 
schiedene Fälle unterteilt: 

1. Es wurde keine Taste betätigt - erneuten Wert 
von Tastatur holen (INKEY$). 

2. Das eingegebene Zeichen hat den Code 127 
(DEL-Taste), was zur Folge hat, daß die 
Schreibposition auf dem Spruchband dekre- 
mentiert und der Variablen START zugewiesen 
wird. Danach wird zur Zeile 310 verzweigt und 
dort ermittelt, ob das Erniedrigen von POSI¬ 
TION zum Erreichen des linken Randes ge¬ 
führt hat. Trifft das zu, so wird als aktuelle 
Schreibposition der linke Rand angenommen 
(START=1). Mit der so manipulierten Start¬ 
position wird die FOR-TO-NEXT-Schleife zur 
Eingabe der Zeichen wieder durchlaufen. Jetzt 
macht auch das Löschen des Zeichens an der 
aktuellen Schreibposition einen Sinn. 

3. Es wurde die RETURN-Taste betätigt (Code 
13), was bewirkt, daß das Programm das 
Spruchband als vollständig eingegeben be¬ 
trachtet und den Programmteil TEXT EINGE¬ 
BEN verläßt (GOTO 480). 

4. Die Eingabe eines anderen Zeichens führt zur 
Ausgabe des Zeichens an der aktuellen 
Schreibposition auf dem Spruchband und zum 
ungehinderten Durchlaufen der FOR-TO- 
NEXT-Schleife. 

470-Ende Spruchband erzeugen 

Mit diesem Programmteil wird der fertig ein¬ 
gegebene Text des Spruchbandes pixelweise aus 
dem Bildschirmspeicher des CPC gelesen und 
ebenfalls an den einzelnen Pixeln orientiert in der 
indizierten Variablen MATRIX(X,Y) gespeichert, 
von der aus die Ausgabe auf den angeschlossenen 
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Drucker erfolgen kann. Nur durch diese 
Verfahrensweise, die auf den ersten Blick etwas 
umständlich anmuten mag, ist es möglich, jedes 
Zeichen, auch das eines umdefinierten Zei¬ 
chensatzes, auf den Drucker zu bringen. 

In Zeile 500 wird aus der letzen Position, an der 
ein Zeichen des Spruchbandes geschrieben wurde, 
auf die entsprechende X-Position des Grafikcur¬ 
sors geschlossen (linke Spalte der Zeichenmatrix). 
Ist der so ermittelte Wert kleiner als Null, so be¬ 
deutet das, es wurde kein Text eingegeben und das 
Programm trifft auf END. Von Zeile 530 bis zum 
Ende des Programms reicht eine alles andere um¬ 
klammernde FOR-TO-NEXT-Schleife, in der un¬ 
ter der Bezeichnung "INDEX" Werte erzeugt wer¬ 
den, die jeweils die kleinste X-Position eines Zei¬ 
chens des Spruchbandes - bezogen auf den Grafik¬ 
bildschirm - darstellen. In dieser FOR-TO-NEXT- 
Schleife befinden sich zwei Programmteile, von 
denen der erste die Benennung ZEICHEN VOM 
BILDSCHIRM LESEN und der zweite DRUK- 
KERAUSGABE trägt. 

ZEICHEN VOM BILDSCHIRM LESEN besteht aus 
zwei ineinander verschachtelten FOR-TO-NEXT- 
Schleifen, mit deren Hilfe die Matrix eines Zei¬ 
chens, an der durch INDEX bestimmten Position, 
vom Bildschirm gelesen wird. Aus den beiden ver¬ 
schachtelten Schleifen ergeben sich Bildschirmpo¬ 
sitionen, an denen mit der BASIC-Funktion TEST 
die Nummer des verwendeten Farbstiftes ermittelt 
und der entsprechend indizierten Variablen MA- 
TRIX(SPALTE,ZEILE) zugewiesen wird. 

Im Programmteil DRUCKERAUSGABE sind drei 
FOR-TO-NEXT-Schleifen ineinander verschach¬ 
telt, von denen zwei, wie in ZEICHEN VOM 
BILDSCHIRM LESEN, einen Zugriffsschlüssel auf 
die doppeltindizierte Variable MATRIX erzeugen - 
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hier ist der Zugriff entsprechend den Belangen der 
Druckausgabe modifiziert. Die eigentliche Ausgabe 
auf den Drucker erfolgt in Zeile 710; dabei wird 
PUNKTS ausgegeben, wenn das korrespondierende 
Pixel bei der Bildschirmausgabe gesetzt war und 
BLANKS, wenn nicht. Ist eine Zeile vollständig 
auf dem Drucker ausgegeben, so sorgt die dritte 
FOR-TO-NEXT-Schleife (Zeile 680) dafür, daß 
dieselbe Zeile insgesamt fünfmal ausgegeben wird, 
um eine maßstabsgetreue Wiedergabe der Zeichen 
zu erwirken. 

Hat die alles umklammernde FOR-TO-NEXT- 
Schleife ihren Endwert erreicht, so ist das Spruch¬ 
band vollständig auf dem Drucker ausgegeben. 
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9. CPC-Maschinenprogrammierung 

Wie Sie bis jetzt gesehen haben, bietet das Schneider-BASIC 
eine Fülle von Grafikfunktionen, mit deren Hilfe erstaunlich 
viele programmtechnische Probleme gelöst werden können. Die 
Ausführungsgeschwindigkeiten der Programme war, obwohl wir 
mit einer Interpretersprache und 16 KByte Video-RAM gear¬ 
beitet haben, in nahezu allen Fällen ausreichend. Trotz alledem 
gibt es mehr als genug grafische Problemstellungen, deren 
Umsetzung den BASIC-Interpreter um "Lichtjahre" überfordert. 
Erste Anzeichen einer solchen Überlastung habe Sie schon im 
Zusammenhang mit der dreidimensionalen Grafik kennengelernt.. 
Weiterhin gibt es Programme, deren Realisierung aus der 
IIASIC-Ebene unmöglich ■ ist. Denken Sie beispielsweise an die 
Entwicklung eines leistungsfähigen Sprite-Generators, Soft- 
Scrolling oder das blitzschnelle Verwalten zwei voneinander 
unabhängiger Bildschirmseiten. 

Die Maschinenprogrammierung ermöglicht es hingegen, die 
lochnischen Gegebenheiten der uns zur Verfügung stehenden 
Hardware voll auszunutzen und die Ausführungszeiten unserer 
Programme bzw. Programmodule durch eine grafikspezifische 
Programmierung extrem gering zu halten. Programme wie Profi- 
Pninter haben gezeigt, daß mit dem CPC all die interessanten 
Dinge möglich sind, die anfangs nur den zehn Mal so teuren 
Personal Computern Vorbehalten wahren. 


«.I Das Herz des CPC - die Z80-CPU 

Dieser Teil ist in erster Linie für den Leser gedacht, der entwe¬ 
der allgemeine Vorkenntnisse in der Maschinenprogrammierung 
besitzt oder sein Z80-Wissen wieder einmal auffrischen möchte. 
Eine umfangreiche Einführung sowie das Abdrucken kompletter 
llcfehlstabellen kann hier leider nicht erfolgen, da diese Themen 
erstens nicht Gegenstand dieses Buches sind, und zweitens den 
Kähmen desselben sprengen würden. Hier soll vielmehr die 
grundlegende Prozessororganisation zwecks besserer Anschau¬ 
lichkeit der folgenden Assemblerlistings aufgeführt werden. An 
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dieser Stelle möchten wir den interessierten Anfänger auf die 
zahlreiche, im Fachhandel erhältliche Z80-Spezialliteratur auf¬ 
merksam machen, die sowohl eine Step-by-Step-Einführung als 
auch ein umfangreiches, in der Zukunft als Nachschlagewerk 
weiter verwendbares All-Round-Wissen vermitteln kann. In 
diesem Zusammenhang sind die ebenfalls im DATA BECKER 
Verlag erschienenen Bücher "Das Maschinensprache-Buch zum 
CPC" und "Das Z80-Prozessorbuch" erwähnenswert. 

Die Z80-CPU wurde 1974 von der amerikanischen Firma 
ZILOG entworfen. Sie ist eine konsequente Weiterentwicklung 
des bis dahin bewährten 8080-Mikroprozessors, der den Grund¬ 
baustein des CP/M-Betriebssystems - das auch mit Ihrem 
Schneider CPC ausgeliefert wird - repräsentiert. Die Z80 ist 
8080 aufwärtskompatibel, d.h., das alle Programme, die auf 
einem 8080 geschrieben wurden, problemlos von der Z80 verar¬ 
beitet werden können - aber nicht umgekehrt. Aus diesem 
Grund entschließen sich heute nahezu alle Computerhersteller, 
die erheblich leistungsfähigeren Z80-Prozessoren in ihre CP/M- 
Systeme zu implementieren. 

Schneider entschied sich für den Einsatz eines Z80-A, einem 
mit 4 MHz getakteten Z80-Mikroprozessor. Er gehört - wie die 
8080-CPU - zur Gruppe der 8-Bit-Prozessoren. 


Z80-Registersatz 

Die Z80 besitzt insgesamt 22 Register. Darunter befinden sich 
neben Programcounter, Stackpointer und Index-Registern zwei 
Akkumulatoren und zwei Flag-Register. Diese, auf den ersten 
Blick etwas unsinnige Tatsache beruht auf einer simplen Ursa¬ 
che. Die Z80 beinhaltet zwei komplette Registersätze, zwischen 
denen mit einem Spezialbefehl gewechselt werden kann. Dieser 
Zweitregistersatz macht die Z80-CPU extrem leistungsfähig, da 
der prozessorinterne Datentransfer immer schneller als ein 
RAM-Zugriff ist. 

Nachfolgend sollen Ihnen alle Register des Z80-Mikroprozessors 
vorgestellt werden. 
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H-Bit-Register 

Die Register A, B, C, D, E, F, H und L repräsentieren den 
doppelt vorhandenen Grundregistersatz unseres Mikroprozessors. 
In ihnen können Werte von 0 bis 255 gespeichert werden. In 
diesem Zusammenhang haben das A- und F-Register entgegen 
den übrigen Registern besondere Funktionen. 

A (Akkumulator): Der Akkumulator oder Akku enthält immer 
das Ergebnis einer arithmetischen oder lo¬ 
gischen 8-Bit-Operation. Er kann selbstver¬ 
ständlich auch als Zwischenspeicher dienen. 

F (Flag-Register): Die Bits im Flag-Register (Status-Register) 
werden nach jeder arithmetischen oder lo¬ 
gischen Operation vom Prozessor beeinflußt, 
und zeigen beispielsweise an, ob ein Regi¬ 
sterüberlauf stattgefunden hat oder das Er¬ 
gebnis der Operation Null ist. So können 
mit Hilfe des F-Registers logische Entschei¬ 
dungen getroffen werden. 


H Bit-Spezialregister 

Die verbleibenden 8-Bit-Register I und R werden vom 
Betriebssystem der CPC-Rechner nicht eingesetzt. Obwohl diese 
Register normalerweise für Spezialzwecke verwendet werden, 
können sie dennoch sinnvoll in unseren Programmen verwendet 
werden. 

K (Refresh-Reg.): Das R-Register benötigt die Z80-CPU, um 
einen automatischen Refresh durchzuführen. 
In diesem Zusammenhang werden die rela¬ 
tiven Bits 0-6 ständig inkrementiert. Das 
relative Bit Nummer 7 wird nicht beein¬ 
flußt. Es kann vom Benutzer nach Bedarf 
manipuliert werden. Das Refresh-Register 
kann übrigens für eine sinnvolle Anwen¬ 
dung "mißbraucht" werden. Falls Sie bei- 
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spielsweise ein eigenes Videospiel entwerfen 
möchten, sind Sie mit größter Warschein- 
lichkeit auf einige Zufallszahlen angewiesen. 
Da der Zustand des Refresh-Register nie 
vorhersehbar ist, kann es somit hervorra¬ 
gend als Zufallsgenerator dienen. 

I (Interrupt-Reg.): Das 8 Bit breite Interrupt-Register wird nur 
im Zusammenhang mit dem Interrupt-Mode 
IM2 verwendet. Es repräsentiert dann das 
High-Byte einer 256 Byte langen Memory- 
Page. In ihr können bis zu 128 Interrupt- 
Vektoren gespeichert werden. Das I-Regi- 
ster kann, falls IM2 in Ihrem Programm 
keine Verwendung finden sollte, zum 
schnellen 8-Bit-Zwischenspeicher degradiert 
werden. Der Zugriff auf das Interrupt-Re¬ 
gister, ist zwar langsamer als auf ein nor¬ 
males Register jedoch immer schneller als 
ein direkter Speicherzugriff. 


16-Bit-Doppelregister 

Die Z80 ist einer der wenigen 8-Bit-Prozessoren, der 16-Bit- 
Register enthält. Diese 16-Bit-Register bieten enorme 
Geschwindigkeitsvorteile. Sie erlauben uns beispielsweise zwei 
Zahlen im Bereich von 0 bis 65535 mit einem einzigen Befehl zu 
addieren. Selbst eine Multiplikation mit 2 ist auf 16-Bit-Ebene 
auf einen Schlag möglich! 

Die Z80 kennt zwei verschiedene Arten von 16-Bit-Registern: 

- echte 16-Bit-Register und 

- simulierte 16-Bit-Register - sogenannte Doppelregister 

Die Doppelregister bestehen aus den 8-Bit-Register-Gruppen 
BC, DE und HL. Da sie sich im Grunde aus den Elementarregi¬ 
stern zusammensetzen, sind auch diese Register erfreulicherweise 
doppelt vorhanden (Zweitregistersatz!). Das HL-Register über- 
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nimmt in dieser Adressierungsart übrigens die Rolle eines 16- 
Hit-Akkus. Das Flag-Register wird wie gehabt verwendet. 


16- Bit-Ind exregister 

Die Z80-CPU stellt uns für die indizierte Adressierung zwei 
weitere 16-Bit-Register (IX und IY) zur Verfügung. Diese 
Register können mit einem zusätzlichen 8-Bit-Offset 
(Distanzadresse) versehen werden, der automatisch zum Inhalt 
dos entsprechenden Indexregisters addiert wird. Dieser Offset 
wird im Zweierkomplement dargestellt. Auf diese Weise können 
auch negative Distanzadressen addiert werden. 


16-Bit-Spezialregister 

Die noch verbleibenden 16-Bit-Register werden unter anderem 

von der Z80 selbst beeinflußt. 

SP (Stackpointer): Das SP-Register (Stapelregister) beinhaltet 
die Adresse eines von uns reservierten 
Speicherbereichs, in dem 16-Bit-Daten 
zwischengespeichert werden können. Die 
Z80-CPU legt in diesem Bereich die Rück¬ 
sprungadressen aller CALL-Befehle ab. Das 
Transferieren eines Datenwortes in diesen 
Bereich hat ein doppeltes Dekrementieren 
des Stackpointers zur Folge. 

PC (Prg.-Counter): Das PC-Register (Programmzähler) enthält 
immer die aktuelle Adresse des von der 
CPU zu verarbeitenden Befehls. Nach 
Befehlsausführung addiert* der Prozessor 
automatisch die Bytelänge des gerade 
verarbeiteten Operationscode und möglichen 
Operanden zum Inhalt des PC-Registers. Es 
kann auch durch einen Jump- oder Call- 
Befehl direkt vom Benutzer geladen werden. 


3 
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0.2 Der Video-Controller 

Der Video-Controller ist für jegliche Darstellung auf dem Bild¬ 
schirm verantwortlich. Es handelt sich bei allen CPCs um den 
HD 6845 - einen leistungsstarken Vertreter seiner Art, der auch 
in wesentlich teureren Systemen anzutreffen ist. 

Der Video-Controller wird nach bester Z80-Manier durch seine 
1-/0-Ports adressiert. Diese Port-Adressierung hat gegenüber 
der Memory-Maped-Methode den Vorteil, daß kein zusätzlicher 
RAM-Bereich verloren geht. Apropos Port-Adressierung: 
Bekanntermaßen stellt die Z80 dem Benutzer 256 I-/0-Ports zur 
Verfügung. Das Betriebssystem des Schneider-CPC verwaltet 
hingegen 65536 Ein-/Ausgabe-Kanäle. Wie? Nun - die Kon- 
»truktoure der Z80 haben sich zwecks universeller Einsetzbarkeit 
Ihrer CPU einen einfachen, jedoch sehr effektiven Trick einfal¬ 
len lassen. Sie beinhaltet nämlich Befehle, mit deren Hilfe durch 
ein 16 Bit breites Datenwort der entsprechende I-/0-Port selek¬ 
tiert werden kann. Zu diesem Zweck muß das BC-Register mit 
der gewünschten Port-Adresse geladen werden. Diese Adressie¬ 
rungsart hat leider auch Nachteile. So können nicht alle zur 
Verfügung stehenden Port-Befehle in diesem Modus verwendet 
werden. 

l-'ür die Adressierung des HD 6845 stehen 18 Daten-Register 
sowie ein Adreß-Register zur Verfügung. Bevor ein Datenregi- 
»ler beschrieben oder gelesen werden kann, muß seine Nummer 
In den unteren 5 Bits des Adreß-Register abgelegt werden. Die 
Register werden dabei über folgende Ports adressiert: 


Adreß-Register: &BC00 

Daten-Register: &BD00 


Die gezielte Programmierung des Video-Controllers ermöglicht 
lei/,(endlich eine wesentlich schnellere, elegantere und einfachere 
(irnfik-Programmierung. So ist beispielsweise der Lightpen- 
A lischluß sowie das Scrollen des Bildschirminhalts mit seiner 
Hilfe ohne Probleme möglich. 
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Der Registersatz des Video-Controllers 

AR Adreß-Register (5-Bit-WRITE) 

Das Adreß-Register muß mit der Nummer des zu 
adressierenden Datenregisters geladen werden. Es ak¬ 
zeptiert die Register-Nummern 0 bis 17. Die Werte 18 
bis 31 werden ignoriert. Das Adreß-Register kann nur 
beschrieben werden. 

RO Horizontal Total (8-Bit-WRITE) 

Dieses Register enthält die Anzahl der Zeichen pro to¬ 
tale Zeile. Das Wort "totale" bezieht sich nicht auf die 
sichtbaren Zeichen, sondern auf den vom Betriebssys¬ 
tem erwarteten Wert. Da es auch Zeichen für den Rand 
und Strahlenrücklauf mit einbezieht, muß der Wert das 
l,5fache der real dargestellten Zeichen betragen. RO 
kann nur beschrieben werden. 

RI Horizontal Displayed (8-Bit-WRITE) 

RI enthält die reale (sichtbare) Anzahl der Zeichen pro 
Zeile. Dieser Wert muß immer kleiner als der Wert in 
RO sein. RI kann nur beschrieben werden. 

R2 Horizontal Sync-Position (8-Bit-WRITE) 

Mit diesem Register kann ein ganz besonderer Effekt 
erzielt werden. Es enthält nämlich den Zeitpunkt des 
HSync-Impulses. Eine Verringerung dieses Wertes ver¬ 
schiebt das gesamte Monitorbild nach rechts, eine Er¬ 
höhung nach links. R2 kann nur beschrieben werden. 

R3 Sync Width (4-Bit-WRITE) 

Die relativen Bits 0 bis 3 bestimmen die Breite der 
HSync- und VSync-Impulse. Die verbleibenden Bits 
werden nicht benötigt. R3 kann nur beschrieben wer¬ 
den. 
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l<4 Vertical Total (7-Bit-WRITE) 

Der Inhalt von R4 enthält die Anzahl der Rasterzeilen 
pro Bild. Er bestimmt ferner, ob die Bildwiederholfre¬ 
quenz in 50- oder 60-Herz-Intervallen synchronisiert 
wird. R4 kann nur beschrieben werden. 

K5 Vertical Total Adjust (6-Bit-WRITE) 

Die unteren 6 Bit dieses Registers sind für den Fein¬ 
ausgleich (tuning) der Bildwiederholfrequenz verant¬ 
wortlich. R5 kann nur beschrieben werden. 

R6 Vertical Displayed (7-Bit-WRITE) 

Die relativen Bits 0 bis 7 repräsentieren die reale An¬ 
zahl der Rasterzeilen auf dem Display. Der hier einge¬ 
tragene Wert muß immer kleiner als der in R4 sein. R6 
kann nur beschrieben werden. 

I<7 Vertical Sync-Position (7-Bit-WRITE) 

Mit dem Inhalt von R7 kann analog zu R2 ein vertika¬ 
les Verschieben des Gesamtbildes erreicht werden. Es 
bestimmt den Zeitpunkt des VSync-Impulses. Wird 
dieser Wert verringert, verschiebt sich das Monitorbild 
nach unten, eine Erhöhung schiebt es nach oben. R7 
kann nur beschrieben werden. 

I<8 Interlace (2-Bit-WRITE) 

Die relativen Bits 0 und 1 legen fest, ob die Bild¬ 
schirmdarstellung mit oder ohne Interlace (Zeilen¬ 
sprung-Verfahren) erfolgen soll. R8 kann nur beschrie¬ 
ben werden. 

I<9 Maximum Register Adress (5-Bit-WRITE) 

R9 enthält die Anzahl der Rasterzeilen, die für ein 
darzustellendes Zeichen verwendet werden. Dieses Re¬ 
gister kann nur beschrieben werden. 

K 10 Cursor Start Raster (7-Bit-WRITE) 

RIO ist für das Cursor-Management verantwortlich. Die 
unteren 5 Bits des Registers enthalten die Rasterzeile, 
ab der der Cursor gezeichnet werden soll. Zusätzlich 
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wird mit den relativen Bits 5 und 6 einer von vier 
Cursor-Modi festgelegt. Die Zuordnung ist wie folgt: 


Bits 6 5 


0 0 normaler Cursor 

0 1 kein Cursor 

1 0 Cursor blinkt etwa 3 mal pro Sekunde 

0 1 Cursor blinkt etwa 1,5 mal pro Sekunde 

RIO kann nur beschrieben werden. 


RI 1 Cursor End Raster (5-Bit-WRITE) 

Rll ist für das Cursor-Management verantwortlich. Die 
unteren 5 Bits des Registers enthalten die Rasterzeile, 
ab der der das Zeichnen des Cursors endet. Rll kann 
nur beschrieben werden. 

RI2 Start Adress High (6-Bit-READ/WRITE) 

Eine besonders interessante Möglichkeit eröffnet uns 
das Register RI2. Die unteren 6 Bits legen das High- 
Byte der Adresse fest, ab welcher der Videobereich im 
16KByte-Adreßbereich des Video-Controllers beginnt. 
R12 kann sowohl gelesen als auch beschrieben werden. 
Wird es gelesen, so befinden sich die beiden obersten 
Bits immer in Low-Zustand. 

RI3 Start Adress Low (8-Bit-READ/WRITE) 

Das Register R13 leget das Low-Byte der Adresse fest, 
ab welcher der Videobereich im 16KByte-Adreßbereich 
des Video-Controllers beginnt. RI3 kann sowohl gelesen 
als auch beschrieben werden. 

Cursor High (6-Bit-READ/WRITE) 

Die relativen Bits 0 bis 5 von R14 repräsentieren das 
High-Byte der aktuellen Cursor-Position. R14 kann 
sowohl beschrieben als auch gelesen werden. 


R14 
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R 15 Cursor Low (8-Bit-READ/WRITE) 

Dieses Register enthält das Low-Byte der aktuellen 
Cursor-Position. RI5 kann sowohl beschrieben als auch 
gelesen werden. 

R 16 Light-Pen-High (6-Bit-READ) 

R16 ist ein Lightpen-Register und kann in Verbindung 
mit R17 genutzt werden. Es enthält nach jedem positi¬ 
ven Strobe-Impuls das High-Byte der derzeit aktiven 
Bildschirmadresse. RI6 kann nur gelesen werden. 

R17 Light-Pen-Low (8-Bit-READ) 

Dieses Register ist ein Lightpen-Register und kann in 
Verbindung mit R16 genutzt werden. Es enthält nach 
jedem positiven Strobe-Impuls das Low-Byte der der¬ 
zeit aktiven Bildschirmadresse. RI7 kann nur gelesen 
werden. 


9.3 Das Gate Array 

Das Gate Array ist ein weiterer wichtiger Baustein Ihres CPC- 
Computers. Neben wichtigen System-Koordinationen löst es 
auch zahlreiche grafikbezogene Aufgaben. Darunter fallen bei¬ 
spielsweise die Erzeugung von Farben oder das Umschalten des 
Bildschirm-Modus. 

Wie auch der Video-Controller wird der Registersatz des Gate 
Arrays über die Ein-/Ausgabe-Ports der Z80 adressiert. Die da¬ 
bei zu verwendende Adresse ist &7F00. Mit ihrer Hilfe können 
drei verschiedene Register angesteuert werden. Diese Register 
können nur beschrieben werden. Falls Sie dennoch Rückmeldun¬ 
gen in Ihren Programmen benötigen, müssen Sie jede Manipula¬ 
tion des Gate-Arrays in Variablen übertragen. Diese Methode 
funktioniert selbstverständlich nur bei Ihren eigenen Routinen. 


Die Register des Gate Arrays 

PEN: Das PEN-Register ist für die Farbzuordnung verant¬ 

wortlich. Es wird mit dem Offset der Adresse geladen, 
die einen neuen Farbwert bekommen soll. Dieser Offset 
entspricht dem PEN-Parameter im Amstrad-BASIC. 

Die beiden obersten Bits des Adreßbyte sind für die 
Selektion des PEN-Registers verantwortlich. Sie müssen 
sich beide im Low-Zusatnd befinden. Die relativen Bits 
0-3 enthalten den Offset der zu ändernden Adresse (0- 
15). Während das 5. Bit nicht benötigt wird, hat das 
relative Bit Nummer 4 eine besondere Bedeutung. Falls 
es gesetzt sein sollte, werden die unteren 4 Bits igno¬ 
riert und der Wert des unmittelbar folgenden Out-Be- 
fehls, der das INK-Register adressieren muß, als neue 
Rahmenfarbe interpretiert. 

INK: Dieses Register kann nur im Zusammenhang mit dem 

PEN-Register verwendet werden. Es lädt die Adresse, 
die mit dem PEN-Register selektiert wurde, mit einem 
neuen Farbwert. Der Farbwert ist mit den Farbnum- 
mern des BASIC-INK-Befehls identisch. 

Die relativen Bits 7 und 6 des Adreßbyte sind für das 
Aus wählen des INK-Registers verantwortlich. Bit 7 
muß sich dabei immer im Low- und Bit 6 im High- 
Zustand befinden. Die unteren 5 Bits enthalten die 
Nummer der zu ladenden Farbe (0-26). Das relative Bit 
Nummer 5 wird nicht benötigt. 

MFR: Das Multifunktionsregister hat verschiedene Aufgaben. 
Es kann beschrieben werden, wenn sich das relative Bit 
7 des Adreßbyte im High- und Bit 6 im Low-Zustand 
befindet. Während das Bit Nummer 5 nicht benötigt 
wird, sind die restlichen Bits für die Funktionsauswahl 
verantwortlich. Sie haben folgende Bedeutung: 
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Bit 4: Löschen des V-Sync-Zählers 

Bit 3: ROM ein-/ausschalten (&COOO bis &FFFF) 

Bit 2: ROM ein-/ausschalten (&0000 bis &3FFF) 

Bit 1: Ändern des Bildschirm-Modus 
Bit 0: 

Ist bei Ausgabe des Adreßbytes Bit 4 gesetzt, so wird 
der System-Pointer, der auf den abzuarbeitenden In¬ 
terrupt-Vektor zeigt, auf Null gesetzt. Der Interrupt- 
Vektor mit der höchsten Priorität wird folglich beim 
nächsten Interrupt abgearbeitet. 

Die relativen Bits 2 und 3 bestimmen mit ihrem aktu¬ 
ellen Zustand die ROM-/RAM-Speicherkonfiguration. 
Falls eines der beiden Bits gesetzt ist, so wird aus der 
entsprechenden RAM-Bank gelesen - ansonsten aus 
dem ROM-Bereich. 

Die letzten beiden Bits beziehen sich auf die Definition 
der Bildschirm-Modi. Durch ihre vier verschiedenen 
Kombinationsmöglichkeiten können mit ihrer Hilfe alle 
Bildschirmmodi sowie ein Spezial-Mode aufgerufen 
werden. Die Bitzuweisung ist wie folgt: 


Bit 1 Bit 0 Funktion 


0 0 Mode 0 (160*200 Punkte/16 Farben/Blinken) 

0 1 Mode 1 (320*200 Punkte/4 Farben/Blinken) 

1 0 Mode 2 (640*200 Punkte/2 Farben/Blinken) 

1 1 Mode 0 (160*200 Punkte/16 Farben) 


Und hier noch einmal die Zusammenfassung der oberen Bit- 
Zustände aller Register: 
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Bit 7 Bit 6 Funktion 


0 0 PEN-Register mit Farbadressen-Offset laden 

0 1 INK-Register mit Farbnummer laden 

1 0 Funktion im MFN-Register initialisieren 

0 0 wird vom System für Speicherumschaltung 

des 6128 verwendet 

So - das wäre alles! Und wie kann das Gate Array sinnvoll ein¬ 
gesetzt werden? Nun - falls Sie innerhalb Ihrer Maschinenpro¬ 
gramme in erster Linie auf ROM-Routinen zurückgreifen wol¬ 
len, ist es in den meisten Fällen sicherlich sinnvoll, auf alle vor¬ 
handenen Routinen zurückzugreifen. Diesbezügliche ROM- 
Zugriffe über Vektoren werden etwas später vorgestellt. Wenn 
Sie jedoch, sei es aus Speicherplatz- oder Geschwindigkeitsgrün¬ 
den, auf eigene Routinen zurückgreifen möchten, ist eine 
genaue Kenntnis des eben beschriebenen unumgänglich. Wie 
einfach die Benutzung der Gate-Array-Register ist, soll folgen¬ 
des Beispiel aufzeigen: 


## ## 

## GATE ARRAY ANWENDUNGSBEISPIEL ## 
## ## 


9000 

ORG 

&9000 

1 

9000 

DI 


9001 START: 

LD 

BC,&7F0O 

9004 

LD 

A,&02 

9006 

OUT 

(C),A 

9008 

LD A 

>,&43 

90 OA 

OUT 

(C),A 

900C 

EI 


900D 

RET 



System abkoppeln 

Port definieren 

Farb-Register 2 wählen 

PEN-Register 

;adressieren 

Farbe 3 wählen 

INK-Register 

/adressieren 

Interrupt zulassen 

Fertig! 
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Diese kleine Routine lädt das Färb-Adreßregister Nummer 2 mit 
dom Farbwert 3. Sie entspricht strenggenommen dem BASIC- 
liofehl INK 2,3. Falls Sie versuchen sollten, dasselbe Beispiel mit 
don BASIC-Befehlen 


OUT &7FOO,2:OUT &7F00.&43 <RETURN> 


y,u realisieren, werden Sie eine Überraschung erleben. Ein kurzes 
Auf blitzen der gewählten Farbe ist alles, was Sie erreichen wer¬ 
den. Dieses Phänomen hängt mit der Tatsache zusammen, daß 
das Betriebssystem grundsätzlich alle Farben des CPC mittels 
Intorruptsteuerung blinkend darstellt. Bei jedem Interrupt wird 
automatisch von der System-Software einer der beiden Farb¬ 
werte in das Gate Array übertragen. Da im Normalfall beide für 
dlo Blinksequenz benötigten Farben identisch sind, merkt der 
Benutzer den ständigen Farbwechsel nicht. Wenn jedoch - wie 
ln unserem Beispiel - aus der BASIC-Ebene eine 
Farbmanipulation mittels Gate Array vorgenommen wurde, ist 
dlo neue Farbe genau bis zum nächsten Interrupt zu sehen und 
Hußort sich durch ein kurzes Auf blitzen auf Ihrem Bildschirm. 


9.4 Grafikbezogene Z80-Programmierung 

Die Z80-CPU ist ein registerorientierter Prozessor. Das bedeutet, 
daß die Ausführungsgeschwindigkeit unserer Programme um so 
größer wird, je mehr Register verwendet werden. Da viele Gra- 
flkroutinen mit höchstmöglicher Geschwindigkeit durchlaufen 
worden sollen, gilt es, alle Vorteile der Z80 so optimal wie mög¬ 
lich zu nutzen. Gerade auf dem Gebiet der Grafikprogrammie- 
nmn lohnt es sicht, jeden unnötigen Taktzyklus zu vermeiden, 
denn nur so können fließende Bewegungen auf dem Bildschirm 
dargostellt werden. 

In Kapitel 9.1 haben wir erfahren, daß der Z80-Prozessor zwei 
llauptregistersätze beinhaltet. Der Zweitregistersatz wird jedoch 
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vom Betriebssystem des CPC genutzt und kann aus diesem 
Grund leider nicht in eigenen Routinen verwendet werden. Falls 
dies dennoch geschehen sollte, ist ein unabwendbarer Systemab¬ 
sturz die Folge. 

Diese Tatsache schränkt die auf Geschwindigkeit ausgelegte 
Grafikprogrammierung natürlich stark ein. Mit einem kleinen 
Trick ist es dennoch möglich, das Schneider-Betriebssystem zu 
überlisten und doch noch an die begehrten Zweitregister heran¬ 
zukommen. 

Folgende Routine vermeidet einen Systemabsturz: 


## ## 


; ## USE 2ND 

REG ## 

; m 

tf j/i 

## 

DI 

•ff frTrTfTrTfrrf 


TW 

SYSTEM "ABKOPPELN” 

EX 

AF,AF' 


ALLE ZWEITREGISTER HOLEN 

EXX 



m 

PUSH 

AF 


UND RETTEN 

PUSH 

BC 


ii 

PUSH 

DE 


ii 

PUSH 

HL 


ii 

r 

CALL 

PROGRAM 


MAIN-PROGRAM AUFRUFEN 

r 

POP 

HL 


GERETTETE REGISTER HOLEN 

POP 

DE 


H 

POP 

BC 


II 

POP 

AF 


II 

EXX 



ARBEITSREGISTER HOLEN 

EX 

AF,AF' 


ii 

EI 



SYSTEM "EINHÄNGEN» 

f 

RET 


;RÜCKSPRUNG INS BASIC 
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Unser kleines Startprogramm verhindert den Interrupt, rettet den 
Inhalt aller Zweitregister auf den Stack und ruft Ihr Programm 
oder Ihre Routine auf. Danach werden die ursprünglichen Werte 
in die Zweitregister zurückgeschrieben und der Interrupt wieder 
l'roigegeben - das ist alles. 

Da während der ganzen Zeit der Interrupt ausgeschaltet ist, 
merkt das Betriebssystem die Benutzung der Zweitregister nicht. 
Bitte beachten Sie, daß Ihr Programm den Interrupt nicht frei¬ 
geben darf. Falls das dennoch erforderlich sein sollte, muß der 
System-Interrupt-Vektor in Adresse &38 zwischengespeichert 
worden. Danach können Sie einen beliebigen neuen Vektor ein- 
trngen und den Interrupt wieder freigeben. Kurz vor Beendi¬ 
gung Ihres Programms muß’ schließlich der Original-Vektor wie¬ 
der zurückgeschrieben werden. 


Aufbau des Video-RAMs 

Die Grafik des Schneider CPC gestattet eine maximale Auflö- 
Kiing von 640 mal 200 Punkten bzw. 80 mal 200 Bytes. Das 
Video-RAM beginnt normalerweise ab Adresse &C000 und 
endet bei &FFFF. Leider kennt das Schneider-Betriebssystem 
keine Analogie zwischen der internen Organisation des Video- 
KAMs und der reellen Bildschirmausgabe. Der vertikale Gra- 
l’lk auf bau erfogt nicht zeilen- sondern zeichenweise, d.h. es 
werden immer 7 Zeilen übersprungen. Das folgende kleine 
IIASIC-Programm soll das verdeutlichen: 


io rem nuuuuuntitumuuutmuuiimmtmuuuiiumuuimnuu 

20 REM ## ## 

30 REM ## Bildschirmspeicher vollschreiben ## 

30 REM m m 

40 rem 
50 ■ 

55 ' 

60 MODE 2 
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70 For I=&C000 to &FFFF 
80 POICE l.&FF 
90 NEXT 
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Aber warum verwendet das Schneider-Betriebssystem eine der¬ 
artige - auf den ersten Blick unsinnige - Bildschirmorga¬ 
nisation? Nun - sie eignet sich hervorragend zur Darstellung 
eines 8 mal 8 Zeichens. Da der CPC auch Text jeglicher Art im 
Grafik-Modus erzeugt, bietet dieses Verfahren gewisse 
Geschwindigkeitsvorteile. In vielen anderen Fällen erweist es 
sich jedoch als ein programmiertechnisch komplexes Übel, das 
die Grafikausgabegeschwindigkeit Ihrer Z80-Programme uner¬ 
bittlich verlangsamt. 



Abb. 21: Bildschirmaufbau 


Obwohl die Z80-CPU ein 8-Bit-Prozessor ist, stellt sie uns - 
wie in Kapitel 9.1 erwähnt - 16-Bit-Register und eine 16-Bit- 
Arithmetik zur Verfügung. Die letztere bezieht sich auf die 
Addition und die Subtraktion. Diese Möglichkeit erlaubt uns 
einen sowohl einfachen als auch effektiven 16-Bit-Algorithmus 
zu entwickeln, der das Ziehen einer vertikalen Linie ermöglicht. 





























#* m 

M VERTICAl-LINE ## 

## m 


HART: 

LD 

HL.VSTART 

;16-Bit Startadresse 


LD 

DE.&0800 

;ZeiLenoffset 1 


LD 

BC.&3FAF 

;Zeilenoffset 2 


LD 

A, VCOtINT 

,-Anzahl der Punkte (1-200) 

1 

NXTLN: 

LD 

(HL).COLOR 

.•Gewünschte Farbe plotten 


ADD 

HL,DE 

.•Nächste Zeile 


JP 

NC.NOOFF 

;Zeilenoffset 2? 

i 

SBC 

HL, BC 

;Entgültige Zeile 

i 

NOOFF: 

DEC 

A 

;Alle Punkte geplottet? 


RET 

2 

;Wenn ja fertig, ansonsten 


JP 

NXTLN 

;plotte nächsten Punkt 


(’OLOR enthält Informationen über die aktuelle Liniendicke und 
l.inicnfarbe, welche zugleich "modebezogen" sind, d.h., daß alle 
drei Grafikmodi spezifische Parameter verlangen. 


MODE 2: (620 mal 200 Pixel/2 Farben) 

Die Parameter für diesen Mode sind am einfachsten zu ermit¬ 
teln. Jedes gesetzte Bit repräsentiert einen Punkt der PEN-Farbe 
I - ein rückgesetztes Bit die PAPER-Farbe. Es können maximal 
H Linien gleichzeitig gezeichnet werden. 
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MODE 1: (320 mal 200 Pixel/4 Farben) 

Hier wird es schon etwas komplizierter. Die relativen Bitpaare 
(7,3), (6,2), (5,1) und (4,0) repräsentieren jeweils ein Pixel. 
Durch LD A,1 wird beispielsweise der relativen Linie 0 die 
PEN-Farbe 1 zugeordnet. 


Pitiel 2 PiHel 1 








“1 





r~ 



1 


7 

6 

5 

4 

3 

2 

1 

0 


1_ 



1 








J 





PiHel 4 Piwel 3 


Abb, 22: Pixel-Organisation (MODE 1) 


MODE 0: (160 x 200 Pixel/16 Farben) 

Dieser Modus stellt uns 4 Farbinformationsbits zur Verfügung. 
Dies ermöglicht es uns, einem Pixel 24 = 16 Farben zuzuordnen. 
Die PEN-Farbe der linksbündigen Bildpunkte wird durch die 
relativen Bits (7,3,5,1) definiert. Analog dazu repräsentieren die 
relativen Bits (6,2,4,0) die PEN-Farben der rechtsbündigen 
Pixel. Bei der Farbdefinition ist unbedingt zu beachten, daß die 
Wertigkeit der Bits nicht mit der reellen Reihenfolge eines 
üblichen Binärwortes übereinstimmen. In der von AMSTRAD 
verwendeten Verschlüsselung entsprechen nämlich die Bits 1, 5, 
3 und 7 aller linksbündigen Pixel der Binär-Kodierung 20 bis 
23. Analog dazu bilden die Bits 0, 4, 2 und 6 die Farbkodierung 
aller rechtsbündigen Pixel. 
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Pixel I 
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PiHel 2 


Ahb, 23: Pixel-Organisation (MODE 0) 


Das Ziehen einer horizontalen Linie ist hingegen viel einfacher. 
Dies ist sogar mit einem einzigen Z80-Befehl möglich! Sie glau¬ 
ben mir nicht? Nun, dann studieren Sie doch einmal das nach- 
»tehende Programm: 


; m 

m 


; ## LOIR-Demo ## 


; ## 

## 


t 


t 

START: LO 

HL.VSTART 

;Start des Video-RAM 

L0 

DE.VSTART+1 

;2. Wert für Transfer 

LO 

BC,COUNT 

;Linienlänge 

LO 

A.COLOR 

.-Linienfarbe 

LD 

(HL>,A 

;Erstes Byte plotten 

t 

LDIR 


.-Ziehe Linie! 

r 

RET 


;Fertig! 
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Der LDIR-Befehl zeichnet die horizontale Linie nach der Initia¬ 
lisierung mit einer erstaunlichen Geschwindigkeit! Er benötigt 
pro Byte nur 21 Taktzyklen. Bitte beachten Sie, daß dieses Ver¬ 
fahren byteweise arbeitet. 

Das Ziehen einer horizontalen Linie kann sogar noch erheblich 
scheller erfolgen. Um das zu erreichen, behelfen wir uns mit 
einem kleinen Trick. Da die Z80-CPU einen 16-Bit-Stack- 
Pointer beinhaltet, kann er mit der letzten Bildschirmadresse 
einer Linie geladen werden. Wenn wir jetzt das High- und Low- 
Register eines Doppelregisters mit dem Wert der gewünschten, 
modebezogenen Farbe laden, können durch einfaches "PUSHen" 
zwei Bytes gleichzeitig auf dem Bildschirm geplottet werden. In 
diesem Zusammenhang ist unbedingt zu beachten, daß der 
ursprüngliche Wert des Stack-Pointer vor Ausführung der Rou¬ 
tine zwischengespeichert und nach Beendigung des Zeichenvor¬ 
gangs wieder mit demselben geladen werden muß. Weiterhin 
muß der Interrupt während der gesamten Ausführungsperiode 
deaktiviert sein. 

Dieses Verfahren ist zweifelsfrei die schnellste Methode, um 
eine horizontale Linie mittels Z80-Prozessor zu generieren. Das 
nun folgende Maschinenprogramm soll Ihnen zeigen, wie die 
Realisation einer derartigen Routine aussehen kann. 


## ## 

## ZIEHEN EINER HORIZONTALEN LINIE W 

## KITTELS STACK-POINTER ## 

## ## 

##mmtm###m##m#mm#ttm##u###### 


VEND: EQU &C050 
COLOR: EQU &FFFF 
COUNT: EQU 40 


START: DI 


;ENDE DER LINIE 
;PLOTFARBE 
,-PLOTTE 80 BYTES 


.•INTERRUPT SPERREN 
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LD 

(STACK),SP 

;STACK-POINTER RETTEN 


LD 

SP.VEND 

;SP = LINIENENDE 


LD 

HL.COLOR 

;HL = ZU PLOTTENDES WORT 


LD 

B,COUNT 

,'B = LINIEN LAENGE 

i 

LINE: 

PUSH 

HL 

;ZWEI BYTE PLOTTEN 


DJNZ 

LINE 

;FERTIG? 

/ 

LD 

SP,(STACK) 

;STACK-POINTER HOLEN 


EI 


.•INTERRUPT FREI GEBEN 

( 

RET 


; FERTIG! 

1 

STACK: 

DE FS 

2 

.•PLATZ FUER STACK-POINTER 


Tabellenorientierte Bildschirmorganisation 

Das Lokalisieren einer Bildschirmkoordinate im Video-RAM ist 
trotz alledem nur mit einem zeitaufwendigen Algorithmus mög¬ 
lich. 


Dieser Rechenaufwand kann jedoch mit einem einfachen Trick 
- dem tabellenorientierten Lokalisieren - auf ein Minimum 
reduziert werden. Sie können mittels eines einfachen BASIC- 
l’rogramms eine Tabelle aller Y-Adressen erstellen lassen und 
diese in einen beliebigen Speicherbereich POKEen. Ihr Maschi¬ 
nenprogramm muß dann lediglich die gewünschte Adresse aus 
der Y-Tabelle lesen und den X-Wert addieren - fertig! 

Die Y-High/Low-Tabelle kann mit folgendem BASIC-Programm 
generiert werden: 
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1 

2 

3 

4 

5 

6 
7 

10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 


REM 

rem m m 

REM ## Y-Tabellengenerator ## 
REM m m 

REM 


AD=8C000:REM Video Start 
YH=86000:REM Y-High-Byte Tabelle 
YL=861Q0:REM Y-low-Byte Tabelle 


FOR 1=0 to 199 
POKE YH+I,INT(AD/256) 

POKE YL+I,AD-INT(AD/256)*256 
AD=AD+8800 

1F AD>-1 THEN AD=AD-&3FB0 
NEXT 


SAVE "YTAB" ( B,86000,81C7 


Die High-Byte-Tabelle haben wir in unserem Beispiel nach 
&6000 und die Low-Byte-Tabelle nach &6100 gelegt. Sie kön¬ 
nen die Tabellen selbstverständlich in jeden anderen Speicher¬ 
bereich transferieren. Beachten Sie jedoch in diesem Zusammen¬ 
hang, daß der Inhalt der Low-Bytes immer &00 betragen sollte. 
Dies gestattet Ihnen einen wesentlich schnelleren Tabellenzugriff 
Ihres Maschinenprogramms, da wir uns zwei 16-Bit-Additionen 
sparen. Aber nun zur eigentlichen Maschinenroutine: 



; ## TABGET Demoprogramm ## 

; ## m 


TBYH: EQU &6000 
TBYL: EQU 86100 


;Y-High-Tabelle 

;Y-Low-Tabelle 
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ID 

E,27 

übergebe X 


LD 

A,55 

übergebe Y 


CALL 

CALC 

Berechne Adresse 

t 

. ★★★ 
f 

Hier kann Ihre eigene Routine eingebaut 

. *** 

/ 

werden! 


» 

RET 

;Fertig! 

9 

CALC: 

LD 

(OFF1+1),A 

Übergebe Y 


LD 

(OFF2+1),A 

n 

OFF1: 

LD 

HL.CTBYL) 

Hole Wert aus 

OFF2: 

LD 

A,(TBYH) 

Tabelle 


LD 

H,A 

ii 


SRL 

E 

X=X/4 (MODE 1) 


SRL 

E 

II 


LD 

D.O 

Addiere X/4 


ADO 

HL,DE 

ii 


RET 


Ergebnis in HL 


In diesem Beispiel wurde die Adresse eines Pixels in MODE 1 
berechnet. Der X-Wert muß diesbezüglich durch 4 dividiert 
worden. Für die verschiedenen Modi gilt folgendes: 


MODE 0: X = X/2 (160*200 Pixel) 
MODE 1: X - X/4 (320*200 Pixel) 
MODE 2: X = X/8 (640*200 Pixel) 


Sie werden vielleicht bemerkt haben, daß das Ergebnis der X- 
Division immer 80 ist. Das kommt daher, weil.eine horizontale 
Hildschirmzeile immer aus 80 Bytes aufgebaut ist. 

Mit Hilfe dieser Erkenntnisse können wir jetzt ohne weiteres 
rino PLOT-Funktion aufbauen, deren Ausführungsgeschwin- 
digkeit dem CPC-Äquivalent um ein Mehrfaches überlegen ist. 
Sie verlangt im BC-Register die X- (0 bis 319) und im Akku- 
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mulator die Y-Koordinaten (0 bis 199). In der Adresse 
FARBE+1 wird die aktuelle Plotfarbe definiert. Zu diesem 
Zweck muß FARBE+1 vor dem Anspringen der PLOT-Routine 
mit 


&00, &0F, &F0 oder &FF 


geladen werden. Diese Werte repräsentieren die INKs 0 bis 3 
(Mode 1) und manipulieren durch eine AND-Verknüpfung die 
Nibbles der benötigten Bitmasken. 

Unsere Routine verlangt neben unseren Y-High/Low-Tabellen 
eine Bitmasken-Tabelle. Sie ist vier Bits lang und dient zur 
Negativ-Maskenerstellung für den Hintergrund. Die Bitmasken- 
Tabelle sollte - wie die Y-High/Low-Tabellen - aus Ge¬ 
schwindigkeitsgründen auf einer Adresse mit dem Low-Byte 
&00 liegen. 


## ## 

m PLOT-FUNKTION ## 
## ## 


Eingabeparameter: BC = X-Pos (0-319) 

: A = Y-Pos (0-199) 

: (FARBE+1) = Punktfarbe 
(&00, &0F, &F0, &FF) 

zerstörte Register: AF, BC, HL 


ORG &6200 


BITNR: DEFB *01110111 
DEFB *10111011 


;negativ-Kasken 
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DEFB %11011101 ; » 

DEFB %11101110 


t 

ORG 

&7000 

f 

TBYH: 

EQU 

&6000 

TBYL: 

EQU 

&6100 

BITNR: 

EQU 

46200 

§ 

PLOT: 

LD 

(OFF1+1),A 


LD 

(OFF2+1),A 

OFF1: 

LD 

HL,(TBYL) 

OFF2: 

LD 

A,(TBYH) 


LD 

H.A 


LD 

A.&03 


AND 

C 


LD 

(0FF3+1),A 


SRL 

C 


SRL 

C 


ADD 

HL.BC 

/ 

0FF3: 

LD 

A,(BITNR) 


LD 

C.A 


AND 

(HL) 


LD 

B.A 


LD 

A.C 


CPL 


FARBE: 

AND 

&FF 


OR 

B 


LD 

(HL),A 


RET 


;Start Adresse 

;Y-Low-Tabelle 

;Y-High-Tabelle 

;Bitmasken 

;übergebe Y 

- ii 

;Hole Wert aus 
.•Tabelle 

» ii 

;Bit-Nunii>er aus- 
;blenden 

,-Pointer auf Bitmaske 
;X=X/4 (MODE 1) 

• II 

• II 

;tiole Bitmaske 

• II 
i 

;Hintergrundmaske 

.•erstellen 

;und sichern 

;Bitmaske holen 

.-Negativ eliminieren 

;Colorieren 

;und mit Hintergrund- 

;maske verknüpfen 

;Punkt ins Video-RAM 

;schreiben 

; Fertig! 


Analog zu unserer PLOT-Funktion können wir eine tabelleno- 
i lautierte TEST-Funktion entwerfen. Sie verlangt wieder im BC- 





332 


Das zroße Grafikbuch zum CPC 


Register die X- (0 bis 319) und im Akkumulator die Y- 
Testkoordinaten (0 bis 199). Nach der Programmausführung 
steht entweder 


&00, &0F, &F0 oder &FF 


im Akkumulator. Diese Werte geben die aktuelle Punktfarbe der 
adressierten Koordinate (INK 0 bis 3). 


## ## 

m TEST-FUNKTION ## 
## ## 


Eingabeparameter: BC = X-Pos (0-319) 
: A = Y-Pos (0-199) 


Ausgabeparameter:A 


zerstörte Register: 


ORG &6200 

» 

BITNR: DEFB %01110111 
DEFB %10111011 
DEFB 5(11011101 
DEFB 5(11101110 


; ORG &7000 

i 

TBYH: EQU &6000 

TBYL: EQU &6100 

BITNR: EQU &6200 


= Punktfarbe 

(&00, &0F, &F0, &FF) 

AF, BC, NL 


jnegativ-Masken 

• II 

- II 

- I» 

;Start Adresse 

;Y-Low-Tabelle 

;Y-High-Tabelle 

.-Bitmasken 
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TEST: 

LD 

(OFF1+1),A 


LD 

(0FF2+1),A 

OFM: 

LD 

HL.(TBYL) 

OFF2: 

LD 

A,(TBYH) 


LD 

H.A 


LD 

A;&03 


AND 

C 


LD 

(0FF3+1),A 


SRL 

C 


SRL 

C 


ADD 

HL.BC 

9 

;OFF3: 

LD 

A.(BITNR) 


CPL 



AND 

(HL) 

9 

CP 

&10 


JR 

C.NXT 


LD 

B.&FO 

NXT: 

AND 

&0F 


JR 

Z.NXT2 


LD 

A.&OF 


OR 

B 


LD 

B.A 

NXT2: 

LD 

A.B 

9 

RET 



;Übergebe Y 

■ H 

t 

;Hole Wert aus 
.-Tabelle 

- H 

r 

;Bit-Nummer aus* 

;blenden 

;Pointer auf Bitlnaske 
;X=X/4 (MODE 1) 

- II 
9 

• tl 

9 

;Hole Bitmaske 
;Blende überflüssige 
;Bits aus 

;Bit im MSN gesetzt? 
;Wenn nein, dann prü- 
;fe nächstes Nibble 
; Zw i sch energebn i s 
.•merken 

.-Bit im ISN gesetzt? 
;Wenn nein, dann 
;hole Ergebnis nach A 
Zwischenergebnis 
.•merken 

.•Punktfarbe errechnen 
;und retten 
;Punktfarbe im Akku 

.•Fertig) 


Wie Sie sehen, ist das Prinzip der tabellenorientierten Program¬ 
mierung immer das gleiche. Da derartige Funktionen durch ihre 
Tubelien immer speicheraufwendig sind, sollten sie in Ihren Pro- 
Hminmen nur dann Verwendung finden, wenn ein Höchtmaß an 
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* 

Geschwindigkeit gefordert ist. In allen anderen Fällen kann 
getrost auf die ROM-Routinen des Schneider-CPC zurückge¬ 
griffen werden. 


9.5 Die wichtigsten ROM-Routinen 

An dieser Stelle wollen wir Ihnen einige wichtige Grafik-Routi¬ 
nen des Betriebssystems vorstellen. Die Routinen werden über 
die Vektor-Tabelle im RAM angesprungen. Es ist wichtig, daß 
die Routinen nicht direkt angesprungen werden, da ansonsten 
die Software-Kompatibilität zwischen dem 464, 664 und 6128 
nicht mehr gegeben ist, des weiteren und Systemabstürze auf- 
treten können. 

Die hier vorgestellten Routinen sind in 6 Sektionen aufgeteilt: 


1. Routinenname und Einspung-Vektor 

2. Einsprung-Adressen aller CPCs 

3. Kurzbeschreibung der Funktion 

4. Eingangsbedingungen 

5. Ausgangsbedingungen 

6. Komplette Funktionsbeschreibung 


Alle Grafik-Routinen sind Bestandteil des Graphics-, Text¬ 
oder Screen-Packs des Schneider Betriebssystems (ein darauf 
Bezug nehmendes, komplett dokumentiertes ROM-Listing finden 
Sie übrigens im Anschluß diese Routinenbeschreibungen). Der 
Übersicht halber werden die ROM-Routinen erst einmal grob 
den einzelnen Packs zugeordnet. Innerhalb eines solchen Packs 
erfolgt dann eine weitere, nach aufsteigenden Adressen sortierte 
Unterteilung. Obwohl sich dieses Verfahren auf den ersten Blick 
vielleicht etwas kompliziert anhört, gewinnt es doch mit zuneh¬ 
menden Gebrauch an Tranzparenz, da Querverweise zum ROM- 
Listing ohne Probleme gebildet werden können. 

Doch zuerst eine vollständige Liste aller aufgeführten ROM- 
Routinen in alphabetischer Reihenfolge: 
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ASK CURSOR 

( LEAR WINDOW 
CONVERT POS 

DOT POSITION 

LXTENDED INITIALISE 

IILL 

FIRST POINT 

OET CURSOR 
(1ET ORIGIN 
OET PAPER 
Ci ET PEN 
Ci ET WINDOW 
Ci ET W HEIGHT 
OET W WIDTH 

HORIZONTAL 

INITIALISE 

INITIALISE 

LINE ABSOLUTE 
LINE RELATIVE 

MOVE ABSOLUT 


(GRA) 

&BBC6 

(GRA) 

&BBDB 

(GRA) 

&BD4F 

(SCR) 

&BC1D 

(GRA) 

&BD43 

(GRA) 

&BD52 

(GRA) 

&BD49 

(TXT) 

&BB78 

(GRA) 

&BBCC 

(GRA) 

&BBE7 

(GRA) 

&BBE1 

(TXT) 

&BB69 

(GRA) 

&BBD8 

(GRA) 

&BBD5 

(SCR) 

&BC5F 

(GRA) 

&BBBA 

(TXT) 

&BB4E 

(GRA) 

&BBF6 

(GRA) 

&BBF9 

(GRA) 

&BBC0 
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MOVE RELATIVE 
OUTPUT 

PIXELS 

PLOT ABSOLUTE 
PLOT RELATIVE 

RESET 

RESET 

SET CURSOR 
SET GRAPHIC 
SET MASK 
SET ORIGIN 
SET PAPER 
SET PEN 

TEST ABSOLUTE 
TEST RELATIVE 
TRANS SWITCH 

VERTICAL 

WIN ENABLE 
WIN HIGHT 
WIN WIDTH 
WR CHAR 


(GRA) 

&BBC3 

(TXT) 

&BB5A 

(SCR) 

&BC5C 

(GRA) 

&BBEA 

(GRA) 

&BBED 

(GRA) 

&BBBD 

(TXT) 

&BB5I 

(TXT) 

&BB75 

(TXT) 

&BB63 

(GRA) 

&BD4C 

(GRA) 

&BBC9 

(GRA) 

&BBE4 

(GRA) 

&BBDE 

(GRA) 

&BBF0 

(GRA) 

&BBF3 

(GRA) 

&BD46 

(SCR) 

&BC62 

(TXT) 

&BB66 

(GRA) 

&BBD2 

(GRA) 

&BBCF 

(GRA) 

&BBFC 
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m: 


I XT INITIALISE 


&BB4E 


ROM-Adressen: 


464 &I078 

664 & 1070 

6128 &1074 


lunktion: TXT-Pack initialisieren 


liingaberegister: keine 


Ausgaberegister: keine 

Zerstörte Register: AF, BC, DE, HL 


Funktionsbeschreibung: 

IXT INITIALISE ist für die Initialisierung des TXT-Packs 
verantwortlich. Dabei werden die PAPER- und PEN-Farben auf 
Ihre Anfangswerte gebracht. Zusätzlich werden alle Indirections 
In den RAM-Bereich kopiert und die Parameterblöcke (14 
llytes) aller WINDOWS initialisiert. Da die Routine beim 
Kopiervorgang den LDIR-Blocktransfer-Befehl der Z80-CPU 
verwendet, werden alle Doppelregister zerstört. 


I XT RESET 
ROM-Adressen: 


lunktion: 



&BB51 

464 

&1088 

664 

&1080 

6128 

& 1084 


TXT-Pack zurücksetzen 


liingaberegister: keine 


Ausgaberegister: keine 


Zerstörte Register: AF, BC, DE, HL 
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Funktionsbeschreibung: 

TXT RESET kopiert die gesamte Steuerzeichen-Sprungtabelle 
sowie die Indirections des TXT-Packs in den zugehörigen 
RAM-Bereich. Da die Routine beim Kopiervorgang den LDIR- 
Blocktransfer-Befehl der Z80-CPU verwendet, werden alle 
Doppelregister zerstört. 


TXT OUTPUT 


&BB5A 

ROM-Adressen: 

464 

&1400 


664 

&13FA 


6128 

&13FE 


Funktion: 
Eingaberegister: 
Ausgaberegister: 
Zerstörte Register: 


Zeichen auf dem Bildschirm ausgeben 
A = ASCII-Code des Zeichens 
keine 
keine 


Funktionsbeschreibung: 

TXT OUTPUT bringt das im Akkumulator befindliche Zeichen 
auf das aktuelle Bildschirmfenster oder führt es aus, falls es sich 
um ein Steuerzeichen handelt. Beachten Sie, daß diese Funktion 
das Indirection TXT OUT ACTION benutzt. Sollten Sie diese 
manipuliert haben, wird TXT OUTPUT auch Ihre Routine statt 
der im ROM stehenden benutzen. 
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TXT SET GRAPHIC 

ROM-Adressen: 



&BB63 

464 

&13A7 

664 

&13A4 

6128 

&13A8 


Funktion: 

Eingaberegister: 
Ausgaberegister: 
Zerstörte Register: 


Textausgabe im Grafik-Window aktivie¬ 
ren oder deaktivieren 

A = 0 - deaktiviert, <> 0 - aktiviert 

keine 

AF 


Funktionsbeschreibung: 

TXT SET GRAPHIC ermöglicht die Textausgabe im Grafik- 
Window. Wird beim Funktionsaufruf keine Null im Akkumulator 
libergeben, erscheint der Text von diesem Zeitpunkt ab an der 
aktuellen Grafikcursor-Position. 


TXT WIN ENABLE 
ROM-Adressen: 



&BB66 

464 

&120C 

664 

&1204 

6128 

&1208 


Funktion: 


Größe des aktuellen Textfensters defi¬ 
nieren. 


F,Ingaberegister: D = rechte Fenstergrenze 

E = untere Fenstergrenze 
H = linke Fenstergrenze 
L = obere Fenstergrenze 
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Ausgaberegister: 
Zerstörte Register: 


keine 

AF, BC, DE, HL 


Funktionsbeschreibung: 

TXT WIN ENABLE legt die Größe des aktuellen Textfensters 
fest. Vor dem Aufruf der Routine werden die Registerpaare HL 
und DE mit den Werten für die Fenstergröße versorgt. 


TXT GET WINDOW 


&BB69 

ROM-Adressen: 

464 

&1256 


664 

&124E 


6128 

&1252 

Funktion: 

Größe des aktuellen Textfensters 

holen. 

Eingaberegister: 

keine 


Ausgaberegister: 

D = rechte Fenstergrenze 

E = untere Fenstergrenze 

H = linke Fenstergrenze 

L = obere Fenstergrenze 


Zerstörte Register: 

AF 



Funktionsbeschreibung: 

TXT GET WINDOW gibt Anwort auf die Frage nach der Größe 
des aktuellen Textfensters. Beim Verlassen der Routine enthalten 
die Registerpaare HL und DE die Werte für die Fenstergröße. 
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&BB75 

&1174 
&I16C 
&1170 

Funktion: Cursor positionieren 

Eingaberegister: H = Spalte 

L = Zeile 


I XT SET CURSOR 

ROM-Adressen: 464 

664 

6128 


Ausgaberegister: keine 

Zerstörte Register: AF, HL 


Funktionsbeschreibung: 

TXT SET CURSOR positioniert den Cursor im aktuellen Text- 
Window. Vor dem Aufruf der Routine muß H mit dem Wert für 
die Spalte und L mit dem Wert für die Zeile geladen werden. 


I XT GET CURSOR 


ROM-Adressen: 



&BB78 

464 

&1180 

664 

&1178 

6128 

&117C 


Funktion: 


Ermitteln der aktuellen Cursor-Position 


Flngaberegister: keine 


Ausgaberegister: 


A = lfd. ROLL-COUNT 
H = Spalte 
L = Zeile 
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Zerstörte Register: keine 


Funktionsbeschreibung: 

TXT GET CURSOR ermittelt die aktuelle Cursor-Position. Beim 
Verlassen der Routine enthält das H-Register den Wert für die 
Spalte und L den Wert für die Zeile. Darüber hinaus enthält der 
Akkumulator den Scolling-Zähler. 


SCR DOT POSITION 


&BC1D 

ROM-Adressen: 

464 

&0BA9 


664 

&0BAB 


6128 

&0BAF 

Funktion: 

Pixelmaske testen 


Eingaberegister: 

DE = X-Koordinate (MODE-bezogen) 
HL = Y-Koordinate (0 bis 199) 

Ausgaberegister: 

B = Anzahl der Pixel 



C = Pixelmaske 

HL = Adresse im Bildschirmspeicher 


Zerstörte Register: AF, DE 


Funktionsbeschreibung: 

SCR DOT POSITION ist eine Routine, die wichtige Informatio¬ 
nen über ein Byte im Bildschirmspeicher liefert. Diese Informa¬ 
tionen dienen dem maskenorientierten Bildschirmaufbau und 
können verhindern, daß der Hintergrund ungewollt manipuliert 
wird. SCR DOT POSITION arbeitet MODE-orientiert und ver¬ 
langt aus diesem Grund die X-Koordinate in den Mode-spezi¬ 
fischen Bereichen [MODE 0 (0-159), MODE 1 (0-319), MODE 2 
(0-639)]. 
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SCR PIXELS (Force Mode) 


&BC5C 

ROM-Adressen: 


464 

664 

6128 

&0C6B 

&0C70 

&0C74 

Funktion: 

Pixel setzen 



Hingaberegister: 

B = Farbnummer 

C = Pixelmaske 

HL = Adresse im Bildschirmspeicher 

Ausgaberegister: 

keine 



Zerstörte Register: 

AF 




Fu n k tionsbeschreibung: 

SCR PIXEL setzt ein oder mehrere Punkte der im B-Register 
angegebenen Farbe in den Bildschirmspeicher. Der aktivierte 
Schreib-Modus wird bei diesem Vorgang ignoriert. 


SCR HORIZONTAL 


ROM-Adressen: 



&BCSF 

464 

&0FC4 

664 

&0F8F 

6128 

&0F93 


Funktion: 


Horizontale Linie zeichnen 


Hingaberegister: 


A = Farbnummer 

BC = X-Endposition (MODE-bezogen) 
DE = X-Startposition (MODE-bezogen) 
HL = Y-Position (0 bis 199) 
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Ausgaberegister: keine 

Zerstörte Register: AF, BC, DE, HL 


Funktionsbeschreibung: 

SCR HORIZONTAL zieht mit hoher Geschwindigkeit eine waa¬ 
gerechte Linie (von DE nach BC) auf dem Bildschirm. Die End¬ 
koordinate in BC muß dabei immer größer oder gleich der 
Startkoordinate in DE sein. Alle X-Parameter sind MODE- 
abhängig [MODE 0 (0-159), MODE 1 (0-319), MODE 2 (0- 
639)]. 


SCR VERTICAL 


&BC62 

ROM-Adressen: 

464 

&102F 


664 

&0F97 


6128 

&0F9B 


Funktion: 

Eingaberegister: 

Ausgaberegister: 
Zerstörte Register: 


Vertikale Linie zeichnen 

A = Farbnummer 

BC = Y-Endposition (0 bis 199) 

DE = X-Position (MODE-bezogen) 
HL = Y-Startposition (0 bis 199) 

keine 

AF, BC, DE, HL 


Funktionsbeschreibung: 

SCR VERTICAL zieht mit hoher Geschwindigkeit eine senk¬ 
rechte Linie (von HL nach BC) auf dem Bildschirm. Die Endko¬ 
ordinate in BC muß dabei immer größer oder gleich der Startko- 
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Ordinate in HL sein. Alle X-Parameter sind MODE-abhängig 
IMODE 0 (0-159), MODE 1 (0-319), MODE 2 (0-639)]. 


GRA INITIALISE 


&BBBA 

ROM-Adressen: 

464 

&15B0 


' 664 

&15A4 


6128 

&15A8 

Funktion: 

Initialisierung des GRA-Packs 


Hingaberegister: 

keine 


Ausgaberegister: 

keine 


Zerstörte Register: 

AF, BC, DE, HL 



Funktionsbeschreibung: 

Als erstes werden die Indirections GRA PLOT, GRA TEST und 
GRA LINE in den RAM-Bereich kopiert. Danach werden Hin- 
lorgrundfarbe (PAPER) und Stiftfarbe (PEN) auf ihre Standard¬ 
werte gebracht. ORIGIN auf linke untere Ecke des Bildschirms 
bringen (0,0). Grafik-Cursor auf 0,0 positionieren. WINDOW(O) 
definieren und dessen Inhalt nicht zerstören. 


GRA RESET 
ROM-Adressen: 


&BBBD 

464 &15DF 

664 &15D3 

6128 &15D7 


Funktion: Kopieren aller Indirections 


lingaberegister: 


keine 
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Ausgaberegister: keine 

Zerstörte Register: AF, BC, DE, HL 

Funktionsbeschreibung: 

Die Indirections GRA PLOT, GRA TEST und GRA LINE wer¬ 
den in den RAM-Bereich kopiert. 


GRA MOVE ABSOLUTE 

&BBC0 

ROM-Adressen: 

464 

&15F4 


664 

&15FA 


6128 

&15FE 

Funktion: 

Absolute Positionierung des 
Cursors 

Grafik- 

Eingaberegister: 

DE = Cursorposition (Spalten) 
HL = Cursorposition (Zeilen) 


Ausgaberegister: 

keine 


Zerstörte Register: 

AF, BC, DE, HL 




Funktionsbeschreibung: 

Der Grafik-Cursor wird an die von DE und HL angegebene 
absolute Bildschirmposition gesetzt. 





CRA MOVE RELATIVE 


&BBC3 


ROM-Adressen: 464 &15F1 

664 &15F7 

6128 &15FB 

Funktion: Relative Positionierung des Grafik-Cur¬ 

sors bezogen auf aktuelle Position 

Eingaberegister: DE = Cursorposition (Spalten) 

HL = Cursorposition (Zeilen) 

Ausgaberegister: keine 

Zerstörte Register: AF, BC, DE, HL 


Funktionsbeschreibung: 

Der Grafik-Cursor wird an die von DE und HL angegebene 
relative Bildschirmposition gesetzt. Diese Position bezieht sich 
auf die aktuellen Koordinaten des Grafik-Cursors. Die entste¬ 
henden Koordinaten können auch außerhalb des definierten 
Grafik-Windows liegen. 


CI RA ASK CURSOR &BBC6 

ROM-Adressen: 464 &15FC 

664 &1602 

6128 &1606 

Funktion: Ermittelt die gegenwärtige Position des 

Grafik-Cursors. 

Eingaberegister: keine 

Ausgaberegister: 


DE = Cursorposition (Spalte) 
HL = Cursorposition (Zeile) 
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Zerstörte Register: keine 


Funktionsbeschreibung: 


Ermittelt die gegenwärtige Position des Grafik-Cursors. 


GRA SET ORIGIN 

ROM-Adressen: 


&BBC9 

464 &1604 

664 &160A 

6128 &160E 


Funktion: Koordinatenursprung definieren 

Eingaberegister: DE = X-Koordinate 

HL = Y-Koordinate 


Ausgaberegister: keine 

Zerstörte Register. DE, HL 


Funktionsbeschreibung: 

Der vom Anwender definierte Koordinatenursprung bezieht sich 
immer auf die linke untere Ecke des Bildschirms. 


GRA GET ORIGIN 


&BBCC 

ROM-Adressen: 

464 

&1612 


664 

& 1618 


6128 

&161C 


Funktion: 


Koordinatenursprung ermitteln 
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keine 


Eingaberegister: 

A usgaberegister: 

Zerstörte Register: 


DE = X-Koordinate 
HL = Y-Koordinate 

keine 


E’unktionsbeschreibung: 

Die Routine ermittelt den Koordinatenursprung, analog zu GRA 
SET ORIGIN, bezogen auf die linke untere Ecke des Bild¬ 
schirms. 


GRA WIN WIDTH 

ROM-Adressen: 



&BBCF 

464 

&1734 

664 

&16A1 

6128 

&16A5 


Funktion: Linke und rechte Begrenzung des Gra¬ 

fik-Fensters setzen. 

Eingaberegister: DE = linker Rand des Windows 

HL = rechter Rand des Windows 


Ausgaberegister: keine 

Zerstörte Register: AF, DE, HL 


I 'u n ktionsbeschreibung: 

GRA WIN WIDTH testet als erstes, welche der in DE und HL 
Übergebenen Koordinaten größer ist. Falls die in HL befindliche 
Koordinate kleiner ist, werden die Registerinhalte vertauscht. 
Danach werden sie gerundet, damit immer ein ganzes Byte in 
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dem vom Anwender definierten Fenster liegt. Je nach Bild¬ 
schirmmodus (MODE 0 bis 2) werden folgende Manipulationen 
an den Koordinaten durchgeführt: 

MODE 2: Die Koordinaten werden nicht manipuliert. 
MODE 1: Alle Koordinaten werden durch 2 dividiert. 
MODE 0: Alle Koordinaten werden durch 4 dividiert. 


GRA WIN HEIGHT 


&BBD2 


ROM-Adressen: 


464 &1779 
664 &16E6 
6128 &16EA 


Funktion: 


Obere und untere Begrenzung des Gra¬ 
fik-Fensters setzen. 


Eingaberegister: DE = oberer Rand des Windows 

HL - unterer Rand des Windows 


Ausgaberegister: keine 


Zerstörte Register: AF, DE, HL 


Funktionsbeschreibung: 

GRA WIN HEIGHT testet als erstes, welche der in DE und HL 
übergebenen Koordinaten größer ist. Falls die in DE befindliche 
Koordinate kleiner ist, werden die Registerinhalte vertauscht. 


GRA GET W WIDTH 


&BBD5 

ROM-Adressen: 

464 

&17A6 


664 

«fei 713 


6128 

&1717 
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Funktion: 

liingaberegister: 

Ausgaberegister: 

Zerstörte Register: 


Linke und rechte Begrenzung des Gra¬ 
fik-Fensters ermitteln. 

keine 

DE = linker Rand des Windows 
HL = rechter Rand des Windows 

AF 


Funktionsbeschreibung: 

CI RA GET W WIDTH ermittelt die rechte und linke Fenster¬ 
grenze- Vor der Ausgabe werden die Koordinaten an den 
gegenwärtigen Bildschirm-Modus wie folgt angepaßt: 

MODE 2: Die Koordinaten werden nicht manipuliert. 
MODE 1: Alle Koordinaten werden mit 2 multipliziert. 
MODE 0: Alle Koordinaten werden mit 4 multipliziert. 


(JRA GET W HEIGHT &BBD8 

ROM-Adressen: 464 &17BC 

664 &1729 

6128 &172D 


Funktion: 


Obere und untere Begrenzung des Gra¬ 
fik-Fensters ermitteln. 


li Ingaberegister: keine 

Ausgaberegister: DE = oberer Rand des Windows 

HL = unterer Rand des Windows 


AF 


Zerstörte Register: 
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Funktionsbeschreibung: 

GRA GET W HEIGHT ermittelt die obere und untere Fenster¬ 
grenze. Die Funktion steht im direkten Zusammenhang mit 
GRA GET W WIDTH. 


GRA CLEAR WINDOW 


&BBDB 

ROM-Adressen: 

464 

&17C5 


664 

&1732 


6128 

&1736 

Funktion: Löschen eines Grafikfensters. 



Eingaberegister: keine 


Ausgaberegister: keine 

Zerstörte Register: AF, BC, DE, HL 


Funktionsbeschreibung: 

GRA CLEAR WINDOW löscht das Grafikfenster und positio¬ 
niert den Grafik-Cursor auf den Ursprung des Koordinatensy¬ 
stems. 


GRA SET PEN 


&BBDE 

ROM- Adressen: 

464 

&17F6 


664 

&1763 


6128 

&1767 


Funktion: 


Definieren der Farbe eines Grafikstiftes. 
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Eingaberegister: A = Stiftfarbe 

Ausgaberegister: keine 

Zerstörte Register: AF 

Funktionsbeschreibung: 

Der in A angegebene Farbwert wird automatisch dem aktuellen 
MODE angepaßt. Danach erfolgt die Stiftfarben-Definition. 


<;ra GET PEN 
ROM-Adressen: 


&BBE1 

464 &1804 

664 &1771 

6128 &1775 


Funktion: 


Farbe eines Grafikstiftes holen 


Fingaberegister: keine 

Ausgaberegister: A = Stiftfarbe 


Zerstörte Register: AF 


Funktionsbeschreibung: 

GRA GET PEN lädt den Akkumulator mit der Farbe des aktu¬ 
ellen Grafikstiftes. Bei diesem Vorgang werden.alle Flags 
stört. 


zer- 
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GRA SET PAPER 


&BBE4 

ROM-Adressen: 

464 

&17FD 


664 

&176A 


6128 

&176E 


Funktion: 
Eingaberegister: 
Ausgaberegister: 
Zerstörte Register: 


Hintergrundfarbe (PAPER) definieren. 
A = Hintergrundfarbe 
keine 
AF 


Funktionsbeschreibung: 

Mittels GRA SET PAPER wird der Hintergrundfarbe (PAPER) 
der im Akkumulator befindliche Farbwert zugewiesen. Bei die¬ 
sem Vorgang werden alle Flags zerstört. 


GRA GET PAPER 


&BBE7 

ROM-Adressen: 

464 

&180A 


664 

&1776 


6128 

&177A 


Funktion: 
Eingaberegister: 
Ausgaberegister: 
Zerstörte Register: 


Hintergrundfarbe (PAPER) auslesen. 
keine 

A = Hintergrundfarbe 
AF 
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Funktionsbeschreibung: 

Mittels GRA GET PAPER wird der Akkumulator mit der aktu¬ 
ellen Hintergrundfarbe (PAPER) geladen. Bei diesem Vorgang 
werden alle Flags zerstört. 


GRA PLOT ABSOLUTE 

' 

&BBEA 

ROM-Adressen: 

464 

&1813 


664 

&177F 


6128 

&1783 


Funktion: Punkt an einer absoluten Koordinate im 

aktuellen Window ausgeben. 

Fingaberegister: DE = X-Position 

HL = Y-Position 


Ausgaberegister: keine 

Zerstörte Register: AF, BC, DE, HL 


F'unktionsbeschreibung: 

GRA PLOT ABSOLUTE ist für die Ausgabe eines Punktes im 
dem vom Benutzer definierten Koordinatensystems zuständig. 
Fnlls eine Koordinate außerhalb des aktuellen Windows liegt, 
wird die Funktion zwar ausgeführt - die Bildschirmausgabe hin¬ 
gegen ignoriert. 


GRA PLOT RELATIVE &BBED 

KOM-Adressen: 464 &1810 

664 &177C 

6128 &1780 
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Funktion: Punkt an einer relativen Koordinate im 

aktuellen Window ausgeben. 

Eingaberegister: DE = relativer X-Offset 

HL = relativer Y-Offset 


Ausgaberegister: keine 

Zerstörte Register: AF, BC, DE, HL 


Funktionsbeschreibung: 

GRA PLOT RELATIVE ist für die Ausgabe eines Punktes in 
dem vom Benutzer definierten Koordinatensystems zuständig. 
Falls eine relative Koordinate außerhalb des aktuellen Windows 
liegt, wird die Funktion zwar ausgeführt - die Bildschirmaus¬ 
gabe hingegen ignoriert. 


GRA TEST ABSOLUTE 


&BBF0 

ROM-Adressen: 

464 

&1827 


664 

&1793 


6128 

&1797 


Funktion: Farbe eines Punktes an einer absoluten 

Koordinate im aktuellen Window ausle- 
sen. 


Eingaberegister: DE = X-Position 

HL - Y-Position 


Ausgaberegister: A = Farbnummer des getesteten Punktes 

Zerstörte Register: BC, DE, HL 
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Funktionsbeschreibung: 

GRA PLOT ABSOLUTE testet die Farbe eines Punktes im dem 
vom Benutzer definierten Koordinatensystems und übergibt 
dessen Farbwert an den Akkumulator. Falls eine Koordinate 
außerhalb des aktuellen Windows liegt, wird diese Funktion 
ignoriert. 


GRA TEST RELATIVE 


&BBF3 


ROM-Adressen: 


464 &1824 
664 &1790 
6128 &1794 


Funktion: 


Farbe eines Punktes an einer relativen 
Koordinate im aktuellen Window ausle- 
sen. 


Eingaberegister: 

Ausgaberegister: 
Zerstörte Register: 


DE = relativer X-Offset 
HL = relativer Y-Offset 

A = Farbnummer des getesteten Punktes 

BC, DE, HL 


Funktionsbeschreibung: 

GRA PLOT RELATIVE testet die Farbe eines Punktes in dem 
vom Benutzer definierten Koordinatensystems und übergibt 
dessen Farbwert an den Akkumulator. Falls eine, relative Koor¬ 
dinate außerhalb des aktuellen Windows liegt, wird diese Funk¬ 
tion ignoriert. 
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GRA LINE ABSOLUTE 


&BBF6 

ROM-Adressen: 

464 

&1839 


664 

&17A5 


6128 

&17A9 


Funktion: Zieht eine Linie von der aktuellen zur 

angegebenen absoluten Position im defi¬ 
nierten Window. 


Eingaberegister: 

Ausgaberegister: 
Zerstörte Register: 


DE = X-Position 
HL = Y-Position 

keine 

AF, BC, DE, HL 


Funktionsbeschreibung: 

GRA LINE ABSOLUTE zieht eine Linie von der aktuellen 
Position des Grafikcursors zur absoluten in DE und HL angege¬ 
benen Position im definierten Koordinatensystem. Die Funktion 
wird auch ausgeführt, wenn eine Koordinate außerhalb des 
aktuellen Windows liegt. Die Linie ist jedoch nur im definierten 
Window sichtbar. Zum Zeichnen der Linie wird der aktuelle 
Grafikstift verwendet. 


GRA LINE RELATIVE &BBF9 

ROM-Adressen: 464 &1836 

664 &17A2 

6128 &17A6 

Funktion: Zieht eine Linie von der aktuellen zur 

angegebenen relativ zum Grafikcursor 

befindlichen Position im definierten 

Window. 
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Eingaberegister: 

Ausgaberegister: 
Zerstörte Register: 


DE » relativer X-Offset 
HL = relativer Y-Offset 

keine 

AF, BC, DE, HL 


Funktionsbeschreibung: 

GRA LINE RELATIVE zieht eine Linie von der aktuellen 
Position des Grafikcursors zur relativ von ihm in DE und HL 
angegebenen Position im definierten Koordinatensystem. Die 
Funktion wird auch ausgeführt, wenn eine relative Koordinate 
außerhalb des aktuellen Windows liegt. Die Linie ist jedoch nur 
Im definierten Window sichtbar. Zum Zeichnen der Linie wird 
der aktuelle Grafikstift verwendet. 


GRA WR CHAR 


ROM-Adressen: 


Funktion: 



&BBFC 

464 

&1945 

664 

&193C 

6128 

&1940 


Gibt ein Zeichen auf dem Bildschirm aus 


Fingaberegister: - A = Zeichen (ASCII-Code) 


A usgaberegister: keine 


Zerstörte Register: AF, BC, DE, HL 


I *'u nktionsbeschreibung: 

GRA WR CHAR gibt das Zeichen, dessen ASCII-Code sich im 
Akkumulator befindet, ab der linken oberen Ecke an der Posi- 
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tion des Grafik-Cursors aus. Danach wird der Grafik-Cursor um 
die Breite des Zeichens nach rechts verschoben. Diese Verschie¬ 
bung ist MODE-Abhängig und kann 8 (MODE 2), 16 (MODE 1) 
oder 32 (MODE 0) Punkte betragen. Die Zeichenfarbe entspricht 
der aktuellen Stiftfarbe. Die Hintergrundfarbe, die mit ausgege¬ 
ben wird und den Hintergrund überschreibt, ist mit der 
PAPER-Farbe identisch. Falls sich die Position des Grafikcur¬ 
sors außerhalb des definierten Windows befinden sollte, wird 
GRA WR CHAR ignoriert. 


GRA EXTENDED INITIALISE 


&BD43 

ROM-Adressen: 


464 

__ 



664 

&15E8 



6128 

&15EC 

Funktion: 

Zusätzliche 

Grafikfunktionen 

initiali- 


sieren. 



Eingaberegister: 

keine 



Ausgaberegister: 

keine 



Zerstörte Register: 

AF, HL 




Funktionsbeschreibung: 

GRA EXTENDED INITIALISE initialisiert äquivalent zu GRA 
INITIALISE alle Zusatzfunktionen des CPC 664 und 6128. Diese 
Funktion ist nicht auf dem CPC 464 verfügbar. 



GRA TRANS SWITCH 


&BD46 


ROM-Adressen: 464 

664 &19D1 

6128 &19D5 

Punktion: Ein- oder Ausschalten des Transparent- 

Modus im Grafik-Modus. 

Eingaberegister: A = Schalter 

Ausgaberegister: keine 

Zerstörte Register: keine 


Funktionsbeschreibung: 

GRA TRANS SWITCH schaltet den Transparentmodus bei der 
Zeichenausgabe im Grafik-Modus an oder aus. Falls der Hinter¬ 
grund mit den Zeichen verknüpft werden soll, muß im Akku¬ 
mulator eine 0 übergeben werden. Wenn nicht, muß der Inhalt 
des Akkus ungleich Null sein. Diese Funktion ist nicht auf dem 
( PC 464 verfügbar. 


GRA FIRST POINT &BD49 

ROM-Adressen: 464 

664 &17B0 

6128 &17AC 

Funktion: Selektiert, ob der erste ‘Punkt einer Linie 

geplottet werden soll. 

A = Schalter 


I ingaberegister: 
Ausgaberegister: 


keine 
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Zerstörte Register: keine 


Funktionsbeschreibung: 

GRA FIRST POINT selektiert, ob der erste Punkt einer Linie 
geplottet werden soll oder nicht. Falls der erste Punkt nicht 
gesetzt werden soll, muß im Akkumulator beim Funktionsaufruf 
eine 0 übergeben werden. Wenn nicht, muß der Inhalt des 
Akkus ungleich Null sein. Diese Funktion ist nicht auf dem CPC 
464 verfügbar. 


GRA SET MASK 


&BD4C 

ROM-Adressen: 

464 

_ 


664 

&17A8 


6128 

&17AC 


Funktion: 
Eingaberegister: 
Ausgaberegister: 
Zerstörte Register: 


Maske für LINE-Funktion definieren 

A = Maske 

keine 

keine 


Funktionsbeschreibung: 

Mittels GRA SET MASK kann das äußere Erscheinungsbild 
einer Linie definiert werden. Dazu muß eine 8-Bit-Maske beim 
Funktionsaufruf in dem Akkumulator übergeben werden. Jedes 
gesetzte Bit entspricht dabei einem Punkt auf dem Bildschirm. 
Hier einige Beispiele: 
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Striche: 

Punkte: 

Strich-Punkt: 

Voll-Linie: 


%11110000 (&F0) 
%10101010 (&AA) 
%11100100 (&E4) 
%J 1111111 (&FF) 


Diese Funktion ist nicht auf dem CPC 464 verfügbar. 


c;ra convert pos 


&BD4F 


ROM-Adressen: 


464 

664 &1626 

6128 &162A 


Funktion: 


Absolute Koordinaten in physikalische 
Koordinaten konvertieren. 


Fingaberegister: 


DE = absolute X-Koordinate (0 bis 639) 
HL = absolute Y-Koordinate (0 bis 399) 


Ausgaberegister: 


DE = phys. X-Koordinate (MODE) 
HL = phys. Y-Koordinate (0-199) 


/.crstörte Register: AF 


Funktionsbeschreibung: 

ORA CONVERT POS wandelt die in DE und HL angegebenen 
absoluten Koordinaten (auf den Ursprung bezogen) in physika¬ 
lische Koordinaten (MODE-bezogen) um. Das heißt, daß der Y- 
Wert immer durch 2 und der X-Wert MODE-abhängig durch 4, 
2 oder 1 dividiert wird [MODE 0 (0-159), MODE 1 (0-319), 
MODE 2 (0-639)]. Diese Funktion ist nicht auf dem CPC 464 
verfügbar. 
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GRA FILL 


ROM-Adressen: 


Funktion: 


Eingaberegister: 


Ausgaberegister: 



&BD52 

464 

— 

664 

&19D5 

6128 

&19D9 


Beliebige Fläche mit Farbe füllen. 

A = Füllfarbe 

DE = maximale FILL-Puffer Größe 
HL = FILL-Puffer Startadresse 

keine 


Zerstörte Register: AF, BC, DE, HL 


Funktionsbeschreibung: 

GRA FILL füllt eine umrahmte Fläche beliebiger Struktur ab 
der Grafikcursor-Position mit der im Akkumulator angegebenen 
Farbe aus. Dabei muß die Farbe der Umrahmung mit der aktu¬ 
ellen Stiftfarbe sowie der Füllfarbe übereinstimmen. Da GRA 
FILL rekursiv arbeitet, benötigt sie einen Puffer, dessen Größe 
und Position in den Doppelregistern DE und HL angegeben 
werden muß. Falls der definierte Puffer zu klein sein sollte, 
wird der Füllvorgang automatisch abgebrochen. Diese Funktion 
ist nicht auf dem CPC 464 verfügbar. 
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9,6 ROM-Listing 

Der in diesem Teil dokumentierte ROM-Auszug bezieht sich auf 
TXT-, und SGR-Pack des Schneider-ROMs und gestat¬ 
tet eine einfachere Maschinenprogrammierung. Villeicht ist 
Ihnen bekannt, daß die Unterschiede im ROM zwischen den 
Schneider Rechnern minimal sind. Deshalb haben wir uns ent¬ 
schieden - um keine Seitenschinderei zu betreiben - bei der 
Betrachtung des Betriebssystems unser besonderes Augenmerk 
auf den CPC 6128 zu richten. Das bedeutet nicht, daß alle 
anderen CPC-Besitzer jetzt das Buch schließen, sondern ledig¬ 
lich, daß diese ein wenig aufpassen müssen, ob die abgedruckten 
Kommentare unmittelbar zu Ihrem ROM-Listing passen oder ob 
sich die Adressen um ein paar Bytes verschoben haben. Da Sie 
ja soweit in der Maschinensprache zuhause sind, daß Sie es 
verstehen mit dem Betriebssystem Ihre Experimente anzustellen, 
dürfte Ihnen diese Transferleistung nicht schwerfallen. Sind Sie 
aber noch nicht so sattelfest, sollten Sie ohnehin ausschließlich 
die Vektoren verwenden. 

Leider das Abdrucken der Op-Codes und Mnemonics des 
Schneider-ROMs in dieser Form urheberrechtlich untersagt. So 
haben wir uns entschlossen, die Dokumentation auf Kommentare 
und Adressen zu beschränken. Diese Kommentare sind, 
betrachtet man sie isoliert, nicht sehr aussagekräftig; erzeugt 
man sich aber mit dem nachstehenden Disassembler ein Listing 
von dem zu untersuchenden ROM-Bereich und bringt dann die 
Adressen des Listings mit denen der Kommentare zur Deckung, 
so fügt sich beides zu einem sinnvollen Ganzen zusammen. 


9.6.1 Z80-Disassembler für CPC 

Der Zugriff auf dem ROM-Speicher stellt beim Schneider-CPC 
ein aus der BASIC-Ebene unlösbares Problem dar; Anwender¬ 
programme, die von Daten aus dem ROM leben, wie zum Bei¬ 
spiel ein Disassembler, lassen sich aber nur mit ungeheurem 
Aufwand vollständig in Maschinensprache realisieren. Deshalb 
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wollen wir Ihnen an dieser Stelle einen ZSO-Disassembler 1 vor¬ 
stellen, der zwar in BASIC geschrieben ist, aber mit einer klei¬ 
nen Maschinenroutine das Auslesen des ROMs ermöglicht. Er 
soll zum einen den Zugriff auf das ROM verdeutlichen, zum 
anderen aber eine Utility zur Arbeit mit dem Schneider-CPC 
sein, die sich zur Untersuchung des Betriebssystems als unent¬ 
behrlich erweist. 

Gleich nach dem Start des Disassemblers schreibt des Programm 
eine kleine Maschinenroutine ab Adresse &AB70 in den Speicher 
des CPC, die in Assemblerschreibweise folgendermaßen aussieht: 


AB70 

01 82 7F 

LD 

BC.&7F82 

; RAH-ROM-KON FIGURATION 

AB73 

ED 49 

OUT 

(C),C 

;UMSCHALTEN 

AB75 

1A 

LD 

A,(D£) 

/BYTE AUS ROM LESEN 

AB76 

32 7F AB 

LD 

<&AB7F),A 

/UND INS RAM SCHREIBEN 

AB79 

C9 

RET 


/FERTIG! 


Auf dieses Maschinenprogramm greift der Disassembler immer 
dann zu, wenn er aus dem ROM lesen will. Beim Aufruf der 
Routine mit CALL wird als Parameter die Adresse von der ge¬ 
lesen werden soll übergeben. Die Adresse wird vom BASIC in 
das DE-Register des Z80 geschrieben und steht dort für die 
Maschinenroutine zur Verfügung. Das aus dem ROM gelesene 
Byte schreibt die Routine ihrerseits an die Adresse &AB7F in 
den RAM-Speicher, wo es mit der BASIC-Funktion gelesen 
werden kann. Auf diesem Umweg sind die im ROM stehenden 
Informationen doch aus der BASIC-Ebene erreichbar. 


100 'RAH-ROM-UMSCHALTUNG 

101 1 

102 DATA &01,&82,&7F,&ED,&49,&1A,&32,&7F,&AB,&C9 

103 MEMORY &9FFF 

104 FOR A=SAB70 TO &AB79 

105 READ D 


1 


Das Maschinensprache-Buch sum CPC, DATA BECKER, 1984, Seite 247 



CPC-Maschinenproerammierune 


367 


106 POKE A,D 

107 NEXT A 

108 1 

109 MODE 2 

110 GOTO 227 

111 LOCATE 18,4:PRINT"Z 80 - DISASSEMBLER" 

112 LOCATE 5,7:INPUT"DRUCKER (J/N) “.ES 

113 IF E$="J" THEN AUS=8 ELSE AUS=0 

114 LOCATE 5,10:1 NPUT"STARTADRESSE : &",AS 

115 GOSUB 213:ANFA=A 

116 LOCATE 5,12:1 NPUT"ENDADRESSE : &",A$ 

117 GOSUB 213:ENDE=A 

118 IF ANFA>ENDE THEN 109 

119 PC=ANFA 

120 MODE 2 

121 ADR=PC 

122 PRINT#AUS,HEX$(ADR, 4);" 

123 IFLAG=0 

124 GOSUB 219 

125 GOSUB 137 

126 IF IFLAG THEN 178 

127 IF (U=&CF OR W=&D7 OR U=£DF OR U=£EF) AND (LEFT$(PR$,3)=' I RST") THEN 
PRS-PRS+" /DU:NN" 

128 IF INSTR(PR$,' , N l, )<>0 THEN 191 

129 IF INSTR(PR$,"E")<>0 THEN 203 

130 PO=INSTR(PR$," ") 

131 IF PRS»''» THEN PR$="???« 

132 IF P0=0 THEN PRINT#AUS,TAB(21);PR$;:GOTO 134 

133 PRINT#AUS,TAB(21);LEFT$(PR$,PO-1);TAB(27);RIGHT$(PR$,LEN<PR$)-P0); 

134 PRINT#AUS 

135 IF PC<=ENDE THEN 121 

136 END 

137 « 

138 'INTERPRETIEREN 

139 ' 

140 IF (W=&DD OR U=&FD) AND NOT IFLAG THEN 163 

141 IF W=&ED THEN 158 

142 IF W e &CB THEN 150 

143 G0SU8 170 

144 ON C01 GOTO 146,148,145 
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145 PR$=BEF$(U):RETURN 

146 IF U=&76 THEN PR$= ,I HALT ,, :RETURN 

147 PR$="LD ,, +REGTAB$(C02)+","+REG$:RETURN 

148 IF C02=0 OR C02=1 OR 002=3 THEN A$=" A," ELSE A$=" '■ 

149 PR$=ARIL0G$(C02)+A$+REG$:RETURN 

150 • 

151 'CB 

152 ' 

153 GOSUB 219 

154 IF IFLAG THEN DIS=U:GOSUB 219 

155 GOSUB 170 

156 IF COl=0 THEN PR$=R0TSCHI$(CO2)+» "+REG$ ELSE PRS=BITTI$(C01)+STR$(C 
02)+“,"+REG$ 

157 RETURN 

158 1 

159 'ED 

160 • 

161 GOSUB 219 

162 IF W<&40 OR W>&BF THEN PR$="???'':RETURN ELSE GOTO 145 

163 ' 

164 'XY 

165 1 

166 IFLAG=-1 

167 IF W=&DD THEN IS="IX'' ELSE I$="IY" 

168 GOSUB 219 

169 GOTO 137 

170 • 

171 'COOE ZERLEGEN 

172 ' 

173 C01=(W AND &Xl1000000)/64 

174 C02=(W AND &X111000>/8 

175 C03=W AND &X111 

176 REG$=REGTAB$(C03) 

177 RETURN 

178 ' 

179 'INDIZIERT 

180 • 

181 PO=INSTR(PR$,"HL") 

182 IF PO=0 THEN PR$="???«:GOTO 130 

183 IF INSTRCPR* I "(HL)")<>0 THEN 187 
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184 IF PR$="EX DE,HL" THEN PR$=»???":GOTO 130 

185 IF PR$="ADD HL,HL“ THEN PR$="ADD “+IS+","+I$:GOTO 130 

186 PR$=LEFT$(PR$,PO-1)+I$+RIGHT$(PR$,LEN(PR$)-PO-1):GOTO 127 

187 IF LEFT$<PR$,2)=»JP» THEN 186 

188 IF PC-ADR<3 THEN GOSUB 219:DIS=W 

189 IF DIS>127 THEN DIS$=STR$<DIS- 

256) ELSE DIS$="+"+RIGHT$(STR$<DIS),LEN<STR$(DIS)>-1> 

190 I$=I$+DIS$:GOTO 186 

191 'N ERSETZEN 

192 PO=INSTR(PR$,“NN"> 

193 IF P0<>0 THEN 198 

194 PO=INSTR(PR$,"N“) 

195 GOSUB 219 

196 PRS=LEFT$(PR$,PO-1)+ ,, &"+HEX$<W,2)+RIGHT$<PR$,LEN(PR$)-PO> 

197 GOTO 130 

196 GOSUB 219:LB=W 

199 GOSUB 219 

200 WERT=W*256+LB 

201 PR*=LEFT$(PR$,PO-1)+"& ,, +H£X$(WERT,4)+RIGHT$<PR$,LEN(PR$)-PO-1) 

202 GOTO 130 

203 ' 

204 'E ERSETZEN 

205 1 

206 PO=INSTR(PR$,“£») 

207 GOSUB 219 

208 IF U>127 THEN W=W-256:REM 2ER-KOMP. 

209 U«U+2 

210 A$=“S"+STR$(W)+" >“+"& ,, +HEX$(PC+W-2,4) 

211 PR$=LEFT$(PR$,PO-1)+A$+RIGHT$(PR$,LEN(PR$)-PO) 

212 GOTO 130 

213 ' 

214 ‘UMWANDLUNG HEX-DEZ 

215 ' 

216 IF A$='“' THEN A=0:RETURN 

217 A*VAL<“&“+A$) 

218 RETURN 

219 ' 

220 'BYTE AUS ROM LESEN 

221 • 

222 CALL &AB70.PC 
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223 W=PEEK(&AB7F) 

224 PC=PC+1 

225 PRINT#AUS,HEX$(W,2);" 

226 RETURN 

227 ' 

228 1 INIT 

229 1 

230 DIM REGTAB$(7),ROTSCHI$(8),8ITTI$(3),ARILOG$(7),BEF$(255) 

231 FOR 1=0 TO 7:READ REGTA8$(I):N£XT 

232 FOR 1=0 TO 7:READ ROTSCHI$(I):N£XT 

233 FOR 1=1 TO 3:READ BITTI$(I):NEXT 

234 FOR 1=0 TO 7:READ ARILOG*(I):NEXT 

235 FOR 1=0 TO &7F:READ BEF$(I):NEXT 

236 FOR I=&80 TO &9F:B£F$( I )=»":NEXT 

237 FOR I=&A0 TO &FF:READ BEF$(I):NEXT 

238 GOTO 111 

239 ' 

240 'DATAS 

241 ' 

242 DATA B,C,D,E,H,L,(HL),A 

243 DATA RLC,RRC,RL,RR,SLA,SRA,???,SRL 

244 DATA BIT,RES,SET 

245 DATA ADD,ADC,SUB,SBC,AND,XOR,OR,CP 

246 DATA NOP,"LD BC,NN","LD (BC),A",INC BC,INC 8,DEC B,«LD B,N",RLCA 

247 DATA «EX AF.AF'V'ADD HL,BC«,“LD A,(BC)",DEC BC.INC C,DEC C,"LD C,N" 
,RRCA 

248 DATA DJNZ E,”UD DE,NN«,«LD (DE),A",INC DE,INC D,DEC D,"LD D,N",RLA 

249 DATA JR E,«ADD HL,DE",«LD A,(DE)",DEC DE,INC E,DEC E,"LD E,N«,RRA 

250 DATA "JR NZ,E","LD HL,NN",»LD (NN),HL",INC HL,INC H,DEC H,"LD H,N»,D 
AA 

251 DATA "JR Z,E","ADD HL,HL","LD HL,(NN)",DEC HL,INC L,DEC L,"LD L,N",C 
PL 

252 DATA "JR NC,E“,"LD SP,NN","LD (NN),A»,INC SP,INC (HL),DEC (HL),"LD ( 
HL),N",SCF 

253 DATA "JR C,E","ADD HL,SP","LD A,(NN)",DEC SP,INC A.DEC A,"LD A,N",CC 
F 

254 DATA "IN B,(C)","OUT (C),B","SBC HL,BC»,»LD (NN),BC",NEG,RETN,IM 0," 
LD I,A" 

255 DATA "IN C,(C)","OUT (C),C","ADC HL,BC»,»LD BC,(NN)",,RETI,,»LD R,A" 

256 DATA "IN D,(C)»,"OUT (C),D","SBC HL,DE","LD (NN),DE",,,IM 1,"LD A,I" 
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257 DATA »IN E,(C)«,«OUT <C),E»,"ADC HL,DE», II LD DE,(NN)»,,,IK 2,»LD A,R» 

258 DATA »IN H,(C)»,»OUT (C),H»,»SBC HL,HL",»LD (NN),HL»,,, ,RRD 

259 DATA "IN L,(C)",»OUT (C),L»,»ADC HL,HL","LD HL,(NN)»,,,,RLD 

260 DATA ,,"SBC HL,SP", 11 LD (NN),SP»,,,, 

261 DATA »IN A,(C)",»OUT (C),A»,»ADC HL,SP",»LO SP,(NN)»,,,, 

262 DATA LD I, CP I, INI, OUT I,,,,, LDD, CPD, IND, OUTD,,,, 

263 DATA LDIR.CPIR,INIR.OTIR,,,,,LDDR.CPDR,INDR.OTDR,,,, 

264 DATA RET NZ.POP BC,«JP NZ,NN»,JP NN,"CALL NZ,NN»,PUSH BC,"ADD A,N»,R 
ST &00 

265 DATA RET Z,RET,»JP Z,NN»,->,»CALL Z,NN",CALL NN,"ADC A,N»,RST &08 

266 DATA RET NC,POP DE,»JP NC,NN»,»OUT (N),A»,»CALL NC,NN»,PUSH DE,»SUB 
N»,RST &10 

267 DATA RET C,EXX,»JP C,NN»,»IN A,(N)»,»CALL C,NN»,->,"SBC A,N»,RST &18 

268 DATA RET PO,POP HL,»JP PO,NN",»EX (SP),HL»,»CALL PO,NN»,PUSH HL,«AND 
N",RST &20 

269 DATA RET PE,JP (HL),»JP PE,NN»,»EX DE,HL»,»CALL PE,NN",- 
>,»XOR N»,RST &28 

270 DATA RET P,POP AF,"JP P,NN",DI,»CALL P,NN",PUSH AF,»OR N",RST &30 

271 DATA RET M,"LD SP,HL",«JP M,NN»,EI,"CALL M,NN»,->,»CP N»,RST &38 
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9.6.2 SCREEN PACK (SCR) 

Das SCREEN PACK ist dem TEXT- und dem GRAPHICS 
PACK untergeordnet. Es ist praktisch die Exekutive für diese 
beiden Packs und damit für die unmittelbare Handhabung des 
Bildschirms zuständig. 


0ABF . SCR INITIALISE 

Beim Aufruf dieser Routine erfolgt eine vollständige Initialisierung des 
Screen-Packs. Der SCREEN START wird auf &C000 gelegt. 


OABF 

;BASISADRESSE DEFAULT FARBEN NACH DE 

0AC2 

;MC CLEAR INKS 

0AC5 

.■ANFANGSWERT HIGH BYTE SCREEN START 

0AC7 

;(HIGH BYTE SCREEN START) 

OACA 

;SCR RESET 

OACD 

.■BILDSCHIRM MODE 1 SETZEN 

OADO. 



Rücksetzen des Screen-Packs. 


OADO 

0AD1 

0AD4 

0AD7 

OADA 

OADD 

OADE 


;AKKU LÖSCHEN UND FLAGS ZURÜCKSETZEN 
;SCR ACCESS 

;RESTORE SCR INDIRECTIONS 
;MQVE (KL+3) NACH ((HL+1)), CNT=(HL) 
;RESET FARBEN 
;9 BYTES 
; ZI ELADRESSE 


OAEO ;CODE FÜR JP 

0AE1 ;SCR READ 


0AE3 ;COOE FÜR JP 

0AE4 zSCR WRITE 




0AE6 

0AE7 


;CODE FÜR JP 
;SCR CLEAR 


u " cr .. SET MODE 

SCR SET MODE versetzt den Bildschirm in einen neuen Modus. Beim Ansprung 
dieser Routine muß im Akkumulator der Wert für den neuen Bildschirm-MODE 
übergeben werden. Zulässig ist einer der Werte 0, 1'oder 2 . 

;BJT 2 BIS 7 AUSBLENDEN 
;IST MODE GRÖSSER ODER GLEICH 3 
«WENN JA, DANN ZURÜCK 
.‘BILDSCHIRM-MODE RETTEN 
,-TERMINATE COLOUR EVENT BLOCK 
;INHALT VON DE HOLEN 
.•FARBEN DECODIEREN 
;AKKU UND FLAGS AUF STACK SICHERN 
.•INHALT VON HL-REGISTER HOLEN 
;MOD£ HOLEN 
;MASKEN HOLEN 
;SCR CLEAR 

;PEN UND PAPER HOLEN 
;WINDOWNUMMER HOLEN 
.•FENSTERPARAMETER AUF DEFAULT 
INSERT COLOUR EVENT BLOCK 


SCR GET MODE 

•CR GET MODE liefert im Akkumulator den gegenwärtigen Bildschirm-Modus. 
Die Flags werden je nach Modus wie folgt gesetzt: 

Mode 0: ZERO-Flag=0, CARRY-Ftag=1 
Mode 1s ZERO-Flag=1, CARRY-FLag=0 
Mode 2: ZERO-Flag=0, CARRY-Flag=0 

;<CURR. SCREEN MODE) 

;FLAGS MANIPULIEREN 
.■ZURÜCK 


DBOC 

080F 

0111 


0AE9 

OAEB 

OAED 

OAEE 

OAEF 

0AF2 

0AF3 

0AF6 

OAFA 

OAFB 

OAFC 

QAFF 

0802 

0806 

0B07 

OIOA 
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0B12.MODE 1 SETZEN 

Bringt den Bildschirm in MODE 1 

OB 12 .-WERT FÜR CURR. SCREEN MODE 

0B14 ,-DIESEN UERT WEGSCHREIBEN 

OB 17..SCR CLEAR 

Bildschirm löschen. 

OB17 ;TERMINATE COLOUR EVENT BLOCK 

0B1A ;ÜBERGABEPARAMETER FÜR SCR SET OFFSET 

OBID ;SCR SET OFFSET 

0B20 ;(ADRESSE SCREEN START) 

0B23 ;LSB AUF NULL SETZEN 

0B25 ; HL=BASISADRESSE 

OB26 ;DE Z BASISADRESSE+1 

0B28 ;16 KILOBYTE 

0B2B ;BYTE WIRD AUF NULL GEBRACHT 

0B2C .-BILDSCHIRM LÖSCHEN 

0B2E ;INSERT COLOUR EVENT BLOCK 

0B31 ;(CURR. SCREEN MODE) 

0B34 ,-MC SET MODE (BILDSCHIRMMODUS SETZEN) 

0B37.SCR SET OFFSET 

Startadresse des ersten Zeichens relativ zur Basisadresse des Video-RAMs 
setzen. 

0B37 ;(SCR HIGH BYTE SCREEN START) 

0B3A ;HIER GEHT ES WEITER 

0B3C.SCR SET BASE 


Basisadresse des Video-RAMs 
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0B3C .'(POSITION IN EINER ZEILE) 

0B3F ;SCR VERÄNDERUNG SCREEN START 

0842 ;MC SCREEN OFFSET 

0B45.SCR VERÄNDERUNG SCREEN START 

Als Eingabeparameter erhält die Routine in HL die Position in einer 
Zeile und im Akkumulator das Highbyte der Bank, die als Bildschirmspei- 
eher definiert wurde. 

0B45 ;BIT 0-5 AUSBLENDEN 

0B47 ;(HIGH BYTE SCREEN START) 

0B4A ;AKKU UND FLAGS SICHERN 

0B4B ;LADE AKKUMULATOR MIT INHALT VON H 

0B4C ;BIT 3-7 AUSBLENDEN 

0B4E .'ERGEBNIS ZURÜCK NACH H 

0B4F ;BIT 0 LÖSCHEN 

0B51 .'(POSITION IN EINER ZEILE) 

0B54 .'ALTEN ZUSTAND AKKU UND FLAGS 

0855 ;ZURÜCK 

0B56.. SCR GET LOCATION 

Beim Verlassen dieser Routine steht im Akkumulator das Highbyte des 
Sereenstart und im HL-Register die Position in einer Zeile. 

0B56 ;(POSITION IN EINER ZEILE) 

0B59 ;HIGH BYTE SCREEN START 

0B5C ;ZURÜCK 

0B5D. SCR CHAR LIMITS 


SCR CHAR LIMITS liefert die größtmögliche Zeilen- und Spaltenzahl abhän¬ 
gig vom BiIdschirm-Modus (MODE). Die Zahl der im aktuellen Modus mögli- 
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chen Zeilen wird im C-Register, die der Spalten im B-Register, zur wei¬ 
teren Verwendung bereitgestellt. 


0B5D ;SCR GET MODE 

OB60 ;B: ANZAHL DER SPALTEN MODE 0 

;C: ANZAHL DER ZEILEN 
;(POSITION 0,0 IST ZULÄSSIG!) 

0B63 ;MOOE 0 IST GESETZT 

0B64 ;ANZAHL DER SPALTEN MODE 1 

0866 ,-MODE 1 IST GESETZT 

0B67 .-ANZAHL DER SPALTEN MOOE 2 

0B69 ;ZURÜCK 

0B6A.. SCR CHAR POSITION 


übersetze phys. Koordinaten in eine Bildschirmposition. Als Eingabepara- 
meter erwartet SCR CHAR POSITION im Doppelregister HL die Koordinaten (H 
= Spalte und L = Zeile). Als Ausgabe befindet sich die Adresse der Zei¬ 
chenposition im HL-Register und die Länge eines Zeichens in X-Richtung 
im B-Register. 


086A 

0B6B 

0B6E 

0B70 

0B72 

0B74 

0B76 

0B77 

0B78 

0B79 

0B78 

0B7C 

0B7D 

0B7E 

0B7F 

0B80 

0B81 

0B82 


;INHALT VON DE AUF STACK RETTEN 
;SCR GET MODE 

;ZEICHENLÄNGE = VIER BYTES (MODE 0) 
;MODE 0 AKTIV? 

;ZEICHENLÄNGE = ZWEI BYTES (MODE 1) 
;MOOE 1 AKTIV? 

;ZEICHENLÄNGE = EIN BYTE (MODE 2) 

;RETTE X-AUSDEHNUNG DER ZEICHEN 
;HOLE SPALTE 

;HIGHBYTE SPALTE LÖSCHEN 
;H-REGIST£R WIRD NULL 
;SPALTE AUF STACK RETTEN 
,-D-REGISTER MSB ZEILE 
;E-REGISTER LSB ZEILE 
;HL=HL*80 
;VGL. 0B7F 
;VGL. 0B7F 
;VGL. 0B7F 
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0B83 

;VGL. 0B7F 

0B84 

;VGL. 0B7F 

0B85 

;VGL. 0B7F 

0886 

;HOLE SPALTE 

0B87 

;ADDIERE SPALTE 

0B88 

;JE NACH MODE SPALTE, SPALTE*2 ODER 
;SPALTE*4 ZU HL ADDIEREN 

0B8A 

;HOLE SCREEN-OFFSET 

0B8E 

;SCREEN-OFFSET ADDIEREN 

0B8F 

;MSB NACH AKKUMULATOR 

0B90 

;BIT 3 BIS 7 AUSBLENDEN 

0B92 

.'ERGEBNIS ZURÜCHSCHREIBEN 

0B93 

;(HIGH BYTE SCREEN START) 

0B96 

;BILDSCHIRMADRESSE + MSB SCREEN START 

0897 

.-ERGEBNIS NACH H-REGISTER 

0B98 

;KOLE X-AUSDEHNUNG DES ZEICHENS 

0B99 

.-ALTEN INHALT VON DE HERSTELLEN 

0B9A 

; FERTIG! 


0B9B . COMPUTE WINDOW PARAMS 

Als Eingabeparameter erwartet die Routine im H-Register die linke und im 
L-Register die obere Fenstergrenze. Analog dazu muß sich im D-Register 
die rechte Fenstergrenze und im E-Register die untere Fenstergrenze be¬ 
finden. Bei der Ausgabe befindet sich linke obere Bildschirmadresse des 
Fensters im HL-Register, des weiteren gibt das D-Register die Anzahl der 
Bytes pro Fensterzeile aus. Im E-Register befindet sich,die Anzahl der 
RBBterzeilen des Fensters. 


0B9B 

,-UNTERE FENSTERGRENZE NACH AKKUMULATOR 

0B9C 

;FENSTERHÖHE BERECHNEN 

0B9D 

;FENSTERHÖHE UM EINS ERHÖHEN 

0B9E 

;ERGEBNIS MAL ACHT 

0B9F 

.-ERGIBT DIE ANZAHL DER 

0BA0 

;RASTERZEI LEN DES FENSTERS 

OB AI 

.-ANZAHL DER RASTERZEILEN NACH E-REGISTER 

0BA2 

.-RECHTE FENSTERGRENZE NACH AKKUMULATOR 

OB A3 

;FENSTERBREITE BERECHNEN 

0BA4 

.-ERGEBNIS UM EINS ERHÖHEN 
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0BA5 .-NACH D-REGISTER ZURÜCKSCHREIBEN 

0BA6 ;SCR CHAR POSITION 

0BA9 ;AKKU LÖSCHEN UND FLAGS ZURÜCKSETZEN 

OBAA ;JE NACH KODE D 

OBAB ;MIT 2, 4 ODER 8 MULIPLIZIEREN 

OBAD .-ERGEBNIS ZURÜCK NACH D-REGISTER 

OBAE ;ZURÜCK 

OBAF. SCR DOT POSITION 

Bildschirmposition für ein Pixel ermitteln. Beim Aufruf erwartet SCR DOT 
POSITION im HL-Register die X und im DE-Register die Y-Koordinate. Beim 
Verlassen stellte die Routine im HL-Register die Bi Idschirmadresse für 
das Pixel zur Verfügung. 

OBAF ;X-KOORDINATE AUF STACK SICHERN 

OBBO ;Y-KOORDINATE NACH DE 

0BB1 ;MAXIMALWERT FÜR Y-KOORDINATE 

0BB4 ;CARRY FÜR SBC ZURÜCKSETZEN 

0BB5 ;MAXIMUM MINUS Y-KOORDINATE 

0BB7 ;LSB ERGEBNIS NACK AKKU 

0BB8 ;RASTERADRESSE FREISTELLEN 

OBBA ,-ALLE BITS DREIMAL 

OBBB ;NACH LINKS ROTIEREN 

OBBC ;(RA INTIALISIERUNG FÜR GATE-ARRAY) 

OBBD .-ERGEBNIS NACH C-REGISTER 

OBBE ;LBS KODIFIZIERTE Y-KOORDINATE NACH A 

OBBF ,-BITS 0 BIS 2 AUSBLENDEN 

0BC1 ,-ERGEBNIS ZURÜCK NACH L-REGISTER 

0BC2 .-MODIFIZIERTES MSB DER Y-KOORDINATE 

0BC3 ,-DE = MODIFIZIERTE Y-KOORDINATE 

0BC4 ;Y-KOORDINATE 

OBC5 ;MIT 10 

0BC6 ,-MULIPLIZIEREN UND 

0BC7 ;SO ZEILE ERRECHNEN 

0BC8 ;X-KOORDINATE VON STACK HOLEN 

0BC9 ;BC FREISTELLEN 

OBCA ;G£T PIXEL MASK 

OBCD rAKKU = PUNKTMASKE 




'.hinenproerammierm, 


OBCE 

CALC MASK Y-INDEX 

OBCF 

ERGEBNIS NULL? 

OBD1 

X-INDEX HALBIEREN 

0BD3 

MASK*INDEX-1 

0BD4 

ERGEBNIS NULL? 

0BD6 

HIGH- UND LOW-BYTE SWAP MIT STACK 

0BD7 

VERGL. OBD6 

0BD8 

VERGL. 0BD6 

OBD9 

VERGL. 0BD6 

OBDA 

HOLE PUNKTMASKE 

OBDB 

UND VERSCHIEBE PIXELS IN MASKE 

OBDC 

X-POS = X-POS/2 (MSB) 

OBDE 

X-POS = X-POS/2 (LSB) 

V OBEO 

UND VERSCHIEBE PIXELS IN MASKE 

OBEI 

LOW BIT IN CARRY? 

0BE3 

BERECHNE BILDSCHIRMADRESSE 

0BE4 

(POSITION IN EINER ZEILE) 

OBEB 

ADDIERE VIDEO-START 

0BE9 

HOLE MSB VON BILDSCHIRMADRESSE 

OBEA 

UND MODIFIZIERE ES MIT AKTUELLER 


RASTER ADRESS 

OBEC 

ERGEBNIS ZURÜCKSCHREIBEN 

obed 

(HIGH BYTE SCREEN START) 

OBFO 

A = MSB DER BILDSCKIRMADRESSE 

OBF1 

ADDIERE SCROFF 

0BF2 

UND ERGEBNIS ZURÜCKSCHREIBEN 

0BF3 

VIDEO-START ADRESS 

0BF4 

HI GH-BYTE NACH C 

0BF5 

DAS WAR'S! 


OBF6.GET PIXEL MASK 


QBF6 

;SCR GET MODE 


0BF9 

;PIXELMASKE FÜR MODE 

0 

OBFC 

;MODE 0 AKTIV? 


OBFD 

;PIXELMASKE FÜR MODE 

1 

0C00 

;MODE 1 AKTIV? 


OCOI 

;PIXELMASKE FÜR MODE 

2 

0C04 

;MODE 2 AKTIV! 
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GC05 


SCR NEXT 8YTE 


Liefert in HL die Bildschirmadresse der nächsten Byteposition zurück, 
wenn Sie vor dem Ansprung HL mit der alten Adresse versorgt haben. So 
überflüssig das scheinen mag, so pracktisch ist es. Es ist nämlich, auf¬ 
grund der auf Grafikbetrieb ausgerichteten Organisation des Bildschirms, 
nicht einfach, die Bytepositäon zu ermitteln. Zudem ist die Distanz vom 
Modus abhängig. 


Beachten Sie, daß, wenn die nächste Position icht mehr innerhalb des 
Bildschirms läge, die zurückgelieferte Adresse unsinnig ist. Sie liegt 
dann im Bereich der letzten (für die Darstellung unbenutzten) Bytes des 
Video-RAMs. 


0C05 

OC06 

0C07 

0C08 

OC09 

0C0B 

ococ 

ocod 

ocof 

0C10 


;LOW BYTE BILDSCHIRMADRESSE +1 

;ZURÜCK WEHN KEIM ÜBERLAUF 

;HIGH BYTE BILDSCHIRMADRESSE +1 

;NEUES HIGH BYTE IN AKKU 

;BITS 3 BIS 7 AUF NULL SETZEN 

;ZURÜCK WENN AKKU <> 0 

;HIGH BYTE ZU WEITERER BERECHNUNG IN 

;DEN AKKU 

;&08 VOM AKKU SUBTRAHIEREN 
;NEU BERECHNETER WERT FÜR HIGH BYTE 
;ZURÜCK MIT BILDSCHIRMADRESSE FÜR 
.-NÄCHSTE BYTEPOSITION IN HL 


0C11 .SCR PREV BYTE 

Liefert in HL die Bildschirmadresse der vorigen Byteposition zurück, 
wenn Sie vor dem Ansprung RL mit der alten Adresse geladen haben. Ver¬ 
gleichen Sie mit SCR NEXT BYTE. 

0C11 ;LOW BYTE BILDSCHIRMADRESSE NACH AKKU 

0C12 ;LOW BYTE-1 

0C13 .-AKKUMULATOR GLEICH 0? 

0C14 ;ZURÜCK WENN AKKU <> 0 
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0C15 

;HIGH BYTE BILDSCHIRMADRESSE NACH 

AKKU 

0C16 

;HIGH BYTE-1 


0C17 

;BITS 3 BIS 7 AUF NULL SETZEN 


0C19 

;ZURÜCK WENN AKKU <> 0 


0C1A 

;HIGH BYTE ZU WEITERER BERECHNUNG 
;DEN AKKU 

IN 

0C1B 

;&08 ZUM AKKU ADDIEREN 


0C1D 

;NEU BERECHNETER WERT FÜR HIGH BYTE 

0C1E 

;ZURÜCK MIT BILDSCHIRMADRESSE FÜR 
;VORIGE BYTEPOSITION IN HL 



0C1F. SCR HEXT LINE 

Arbeitet analog zu SCR NEXT BYTE, nur daß die Bildschirmadresse um eine 
ganze Zeile vorgerechnet wird. Auch hier ist die Adresse beim Verlassen 
dea darstellbaren Bereiches ungültig. 


QC1F 

0C20 

0C22 

0C23 

0C25 

0C26 

0C27 

0C29 

0C2A 

0C2B 

0C2D 

0C2E 

0C2F 

0C3Q 

0C31 

0C33 

0C34 

0C35 

0C37 

0C38 


HIGH BYTE BILDSCHIRKADRESSE NACH AKKU 

&08 ZUM AKKU ADDIEREN 

ERGEBNIS ZURÜCK NACH H 

BITS 0 BIS 2 UND 6 BIS 7 AUSSCHALTEN 

UNTER DIESER VORAUSSETZUNG ZURÜCK 

H WIEDER IN DEN AKKU 

MO VOM AKKU SUBTRAHIEREN 

ERGEBNIS ZURÜCK NACH H 

LOW BYTE BILDSCHIRMADRESSE NACH AKKU 

&50 ZUM AKKU ADDIEREN 

ERGEBNIS ZURÜCK NACK L 

ZURÜCK, WENN BEDINGUNG ERFÜLLT 

H+1 

H WIEDER IN DEN AKKU 

BITS 3 BIS 7 AUF NULL SETZEN 

UNTER DIESER PRÄMISSE ZURÜCK 

H WIEDER IN DEN AKKU 

&08 VOM AKKU SUBTRAHIEREN 

ERGEBNIS ZURÜCK NACH H 

UNBEDINGTER RÜCKSPRUNG 
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0C39.SCR PREV BYTE 

Arbeitet analog zu SCR PREV BYTE, nur daß die BiIdschirmadresse um eine 
ganze Zeile zurückgerechnet wird. Vergleichen Sie mit SCR HEXT LINE und 
SCR PREV BYTE. 

0C39 ;HI GH BYTE BILDSCHIRMADRESSE NACH AKKU 

0C3A ;&08 VOM AKKU SUBTRAHIEREN 

0C3C ;ERGEBNIS ZURÜCK NACH H 

0C3D ;BITS 0 BIS 2 UND 6 BIS 7 AUSSCHALTEN 

0C3F ;BITS 3 BIS 5 GESETZT? 

0C41 .-ZURÜCK UNTER DIESER PRÄMISSE 

0C42 ;H WIEDER IN DEN AKKU 

0C43 ;&40 ZUM AKKU ADDIEREN 

0C45 ;ERGEBNIS WIEDER NACH H 

0C46 ;LOW BYTE BILDSCHIRMADRESSE NACH AKKU 

0C47 ;&50 VOM AKKU SUBTRAHIEREN 

0C49 .-ERGEBNIS ZURÜCK NACH L 

0C4A .-UNTER DIESER VORAUSSETZUNG ZURÜCK 

0C4B ;H WIEDER IN DEN AKKU 

0C4C ;H-1 

0C4D .-BITS 3 BIS 7 AUF NULL SETZEN 

0C4F ,-ZURÜCK, WENN BEDINGUNG ERFÜLLT 

0C50 ;H WIEDER IN DEN AKKU 

0C51 ;&08 ZUM AKKU ADDIEREN 

0C53 ;ERGEBNIS ZURÜCK NACH H 

0C54 ;UNBEDINGTER RÜCKSPRUNG 

0C55.. SCR ACCESS 

Steuerzeichen sichtbar/unsichtbar. Bei der Eingabe erwartet SCR ACCESS 
den BiIdschirmmodus im Akkumulator. 

0C55 .-UNNÖTIGE BITS ABSCHALTEN 

0C57 ;SCR PIXELS (FORCE MODE) 

0C5A ;FORCE MODE? 

0C5C ;XOR-MOOE DEFINIERT? 

0C5E ;LOW BYTE XOR-MODE 

0C60 .-SPRINGE WENN XOR-MOOE 
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0C62 ;LOW BYTE AND-MODE 

0C64 ,-SPRINGE WENN AND-MOOE 

0C66 ;LOU BYTE OR-MOOE 

0C68 ;OPCODE FÜR JP 

0C6A ,-OPCOOE UEGSCHREIBEN 

0C6D ;(SCR URITE IND1RECTION) 

0C70 ;ZURÜCK 

0C71 . SCR URITE 

0C71 ;SCR URITE INDIRECT10N 


0C74 


SCR PIXELS (FORCE MODE) 


Beim Aufruf dieser Routine muß im B-Register das Pen-Byte und im D-Regi- 
»ter die Bitmaske für das Pixel stehen. Im HL-Register steht die Adresse 
für das Pixel im Bildschirmspeicher. 


0C74 ;PEN-BYTE NACH AKKUMULATOR 

0C75 ;MIT BILDSCHIRMSPEICHER XOR-VERKNÜPFEN 

0C76 ;BITMASKE FÜR PIXEL 

0C77 ;MIT BILDSCHIRMSPEICHER XOR-VERKNÜPFEN 

0C78 ;IN DEN BILDSCKIRMSPEICHER SCHREIBEN 

0C79 ;ES GIBT NICHTS MEHR ZU TUEN 

0C7A.XOR-MODE 


Beim Aufruf dieser Routine muß im B-Register das Pen-Byte und im D-Regi- 
iter die Bitmaske für das Pixel stehen. Im HL-Register steht die Adresse 
für das Pixel im Bildschirmspeicher. 

0C7A ;PEN-8YTE NACH AKKUMULATOR 

0C7B ,-BITMASKE FÜR PIXEL 

0C7C ,-MIT BILDSCHIRMSPEICHER XOR-VERKNÜPFEN 

0C7D ;IN DEN BILDSCHIRMSPEICHER SCHREIBEN 

0C7E ;DAS UAR'S 
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0C7F.AND-MODE 

Beim Aufruf dieser Routine muß im B-Register das Pen-Byte und im D-Regi- 
ster die Bitmaske für das Pixel stehen. Im HL-Register steht die Adresse 
für das Pixel im Bildschirmspeicher. 

0C7F ;BITMASKE FÜR PIXEL NACH AKKU 

0C80 ;NEGATMASKE ERSTELLEN 

0C81 ;MIT PEN-BYTE OR-VERKNÜPFEN 

0C82 ;UND HIT BILDSCHIRMSPEICHER UNDIEREN 

0C83 ;ERGEBNIS IN DEN BILDSCHIRM- 

;SPEICHER SCHREIBEN 

0C84 ;ERLEDIGT 

0C85 .OR-MODE 

Beim Aufruf dieser Routine muß im B-Register das Pen-Byte und im D-Regi- 
ster die Bitmaske für das Pixel stehen. Im HL-Register steht die Adresse 
für das Pixel im BiIdschirmspeicher. 

0C85 ;PEN-BYTE NACH AKKU 

0C86 ;MIT BITMASKE FÜR PIXEL UNDIEREN 

0C87 ;UND MIT BILDSCHRIMSPEI CHER OPERIEREN 

0C88 ;IN DEN BILDSCHIRMSPEICHER SCHREIBEN 

0C89 ;FERTIG 

0C8A.SCR READ 

Beim Aufruf erwartet SCR READ eine Adresse aus dem Video-RAM im HL-Regi¬ 
ster vorzufinden. 

0C8A ;HOLE BYTE AUS VIDEO-RAM 

0C8B :BERECHNE FARBSTIFT 
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0C8E.SCR INK ENCOOE 

Codieren einer Ink, so daß alle Bildpunkte auf diese Ink gesetzt werden. 
Diese Routine erwartet bei der Eingabe den Farbstift im Akkumulator und 
schreibt bei der Ausgabe die Farbmaske in den Akku. 

0C8E ;BC-REGISTER FREISTELLEN 

0C8F ;DE-REGISTER FREISTELLEN 

OC90 ;CNV PEN-NUMBER 

0C93 ,-PEN-NUMMER NACH E-REGISTER 

0C94 ;GET PIXEL MASK 

0C97 ;ZÄHLER FÜR MASKENMANIPULATION 

0C99 ;BIT 0 DER PEN-NUMMER INS CARRY 

0C9B ;UND NACH BIT 7 DES AKKUS 

0C9C ;PIXEL-BITMASKE MANIPULIEREN 

0C9E ;UENN BIT 0 = 1 NÄCHSTES BIT HOLEN 

OCAO ;ANDERENFALLS MASKE REKONSTRUIEREN 

0CA2 ;NÄCHSTES BIT HOLEN 

0CA4 .-ALTEN INHALT VON DE-REGISTER 

0CA5 .-ALTEN INHALT VON BC-REGISTER 

0CA6 ;DAS WAR'S 

0CA7. SCR INK DECODE 

Entschlüsseln einer Ink. Diese Routine erwartet bei der Eingabe die 
Farbmaske im Akkumulator und schreibt bei der Ausgabe den Farbstift in 
den Akku. 

0CA7 ;BC FREISTELLEN 

0CA8 ;INHALT VON AKKUMULATOR RETTEN 

0CA9 ;GET PIXEL MASK 

UCAC ;INHALT VON AKKUMULATOR HOLEN 

DCAD ;CALC PEN NUMBER 

OCBO ;INHALT VON BC HOLEN 

HCB1 .-FERTIG! 
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0CB2.CALC PEN-NUMBER 

Im Akkumulator wird an CALC PEN-NUMBER die Farbmaske übergeben und im C- 
Register die Pixel-Bitmaske. Beim Verlassen der Routine steht im Akkumu¬ 
lator die Farbstiftnummer. 

0CB2 ;DE-REGISTER FREISTELLEN 

0CB3 ;BITZÄHLER INITIALISIEREN 

0CB6 ;HOLE BIT AUS FARBMASKE 

0CB7 ;UND NACH D ÜBERTRAGEN 

0CB9 ;HOLE BIT AUS PIXELAUSWAHLMASKE 

OCBB ;BIT = 0? 

OCBD ;ÜBERTRAGE BIT NACH D 

OCBF ;BI TCOUNTER - 1 

0CC0 ;HEITERE BIT VORHANDEN? 

0CC2 ;AKKU WIRD PEN-NUMBER 

0CC3 ;CNV PEN-NUMBER 

0CC6 ;ALTEN INHALT VON DE HERSTELLEN 

0CC7 ;FERTIG! 

0CC8. CNV PEN-NUMBER 

0CC8 ;AKKU NACH D-REGISTER ÜBERSTELLEN 

0CC9 ;SCR GET MODE 

OCCC ;WERT ZURÜCK NACH AKKUMULATOR 

OCCD ;ZURÜCK UENN UNGLEICH MODE 0 

OCCE ;AKKUMULATOR INHALT 

OCCF ;DURCH VIER TEILEN 

OCDO ;CARRY ADDIEREN FALLS VORHANDEN 

0CD2 .-ERGEBNIS DURCH ZWEI TEILEN 

0CD3 ;ISOLIERE CARRY (CARRY = &FF) 

0CD4 ;MIT SECHS UNDI EREN 

0CD6 ;A = PEN NUMMER 

0CD7 .-ERLEDIGT! 
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0CD8 . RESET FARBEN 

0CD8 ;QUELLE: DEFAULT FARBEN 

OCDB ;ZI EL: FARBSPEICHER ZWEITE FARBEN 

OCDE ;ZÄHLER: &22 BYTES 

0CE1 ;KOPIERVORGANG AUSFÜHREN 

0CE3 ;AKKU LÖSCHEN UND FLAGS ZURÜCKSETZEN 

0CE4 ;(FLAG LFD FARBSATZ) 

0CE7 ;STARTUERT FÜR FLASH -PERIODS 

OCEA. SCR SET FLASHING 


Blinkzeiten zur Farbdarstellung für alle Inks und den Rahmen setzen. Im 
Registerpaar HL muß der Wert für die Systemvariable FLASH PERIODS an SCR 
SET FLASHING übergeben werden. 


OCEA ;(FLASH PERIODS) 

OCED ,-SCHON FERTIG 


OCEE. SCR GET FLASHING 

OCEE ;(FLASH PERIOOS) 

0CF1 ,-DAS UAR'S 


0CF2. SCR SET INK 

Zuordnung der beiden Farben, die zur Darstellung einer Ink verwendet 
werden. Beim Aufruf der Routine muß die Nummer des Farbstifts im Akkumu¬ 
lator stehen. Im B-Register erwachtet SCR SET INK die Nummer der ersten 
Farbe und im C-Register die Nummer der zweiten Farbe. 

0CF2 ;BIT 4 BIS 7 AUSSCHALTEN 

0CF4 .-AKKUMULATOR UM 1 ERHÖHEN 

;DIE FARBSTIFTNUMMER LIEGT NUN IM 
BEREICH 1 BIS 16 
SET COLOUR 


0CF5 
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0CF7. SCR SET BORDER 

Zuordnung der beiden Farben, die zur Darstellung eines Rahmens verwendet 
werden. Im B-Register erwachtet SCR SET BORDER die Nummer der ersten 
Farbe und im C-Register die Nummer der zweiten Farbe. 

0CF7 ;0 IST FARBSTIFT FÜR BORDER 


0CF8. ;SET COLOUR 

Im B-Register erwachtet diese Routine die Nummer der ersten Farbe und im 
C-Register die Nummer der zweiten Farbe. 


0CF8 ;NUMMER DES FARBSTIFTS BUFFERN 

0CF9 ;NUMMER ERSTE FARBE NACG AKKU 

OCFA ;FARBMATRIX EINTRAG HOLEN 

OCFD .-ERSTER FARBWERT NACH B 

OCFE .-NUMMER ZWEITE FARBE NACH AKKU 

OCFF ;FARBMATRIX EINTRAG HOLEN 

OD02 .-ZWEITER FARBWERT NACH C 

0D03 .-NUMMER DES FARBSTIFTS ZURÜCK IN A 

0D04 ;INK ADRESSE HOLEN 

0D07 .-ZWEITER FARBWERT IM RAM ABLEGEN 

OD08 ;ZEIGER TAUSCHEN 

OD09 ;ERSTER FARBWERT IM RAM ABLEGEN 

ODOA ;FLAG FÜR NEUE FARBWERTE 

ODOC ;FLAG WIRD GESETZT 

ODOF ;ERLEDIGT 

QD10 . FARBMATRIX EINTRAG HOLEN 


Diese Routine ermittelt die Adresse eines Farbwerts innerhalb der Farb- 
matrix. Als Eingabeparameter wird im Akkumulator eine Farbnummer erwar¬ 
tet. Beim Verlassen von FARBMATRIX EINTRAG HOLEN steht im HL-Register 
die Adresse des Farbwerts in der Farbmatrix. 
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0D10 ;IM BEREICH 0 BIS 31 

0D12 ;LSB DER BASISADRESSE ADDIEREN 

0D14 ;ERGEBNIS NACH L BRINGEN 

0D15 ;MSB BASISADRESSE UND CARRY ADDIEREN 

0D17 ;LSB WIEDER ABZIEHEN 

0D18 ;MS8 DER ADRESSE NACH H 

0D19 ;DAS WAR'S 

0D1A.SCR GET INK 


Holen der beiden Farben, die zur Darstellung einer Ink verwendet werden. 
Als Eingabe wird die Nummer des Farbstifts im Akkumulator erwachtet. Als 
Ausgabe liefert SCR GET INK die Nummer der ersten Farbe im B-Register 
und die Nummer der zweiten Farbe im C-Register. 


0D1A ;BITS 4 BIS 7 AUSBLENDEN 

0D1C ;DANN UM EINS ERHÖHEN 

;DIE FARBSTIFTNUMMER LIEGT NUN IM 
.-BEREICH 1 BIS 16 

0D1D ;GET COLOUR 

0D1F..SCR GET BORDER 


Holen der beiden Farben, die zur Darstellung eines Rahmens verwendet 
werden. Als Ausgabe liefert SCR GET BORDER die Nummer der ersten Farbe 
im B-Register und die Nummer der zweiten Farbe im C-Register. 


001F ;0 IST FARBSTIFT FÜR BORDER 

0D20.GET COLOUR 


Als Ausgabe liefert GET COLOUR die Nummer der ersten Farbe im B-Register 
und die Nummer der zweiten Farbe im C-Register. 


0020 

0D23 

0024 


;INK ADRESSE HOLEN 
,-ERSTER FARBWERT NACH A 
.-ZWEITER FARBWERT NACH E 
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0D25 

0D28 

0D29 

0D2A 

0D2C 

0D2F 

0D30 

0D31 

0D32 

0D33 


FARBWERT IN TABELLE LOKALISIEREN 
ERSTE FARBNUMMER NACH B-REGISTER 
ZWEITER FARBWERT NACH AKKU 
COUNTER INITIALISIEREN 
ADRESSE DER FARBMATRIX NACH HL 
FARBWERT LOKALISIERT? 

DANN FERTIG! 

TABELLENPOINTER UND 
FARBNUMMER ERHÖHEN 
SUCHE FORTSETZEN! 


UD:S:> .. INK ADRESSE HOLEN 

Als Eingabe erwartet INK ADRESSE HOLEN die Nummer des Farbstifts im 
Akkumulator. Mit dieser Angabe ist es der Routine möglich, zu ermitteln, 
wo im RAM die beiden Farbwerte stehen, die dem Farbstift zugeordnet 
sind. Bei Verlassen von INK ADRESSE HOLEN befindet sich in DE die 
Adresse, an der sich der erste Farbwert befindet, und HL enthält die 
Adresse des zweiten Farbwerts. 


0D35 

.-NUMMER DES FARBSTIFTS 

0D36 

;MSB ERZEUGEN 

0D38 

;FARBSPEICHER 1. FARBEN 

0D3B 

;NUMMER DES FARBSTIFTS ADDIEREN 

0D3C 

.■ERGEBNIS NACH DE TAUSCHEN 

0D3D 

;HILFSSUMMAND FÜR ZWEITEN FARBWERT 

0D40 

;HL ZEIGT AUF ZWEITEN FARBWERT 

0D41 

;FERTIG 


0D42 


INSERT COLOUR EVENT BLOCK 


0D42 

0045 

0D46 

0D49 

0D4C 

0D4F 


;EVENT BLOCK SET INKS 
.•ADRESSE EVENT BLOCK AUF STACK 
;KL DEL FRAME FLY 
;FLASH INKS 

;SET INKS ON FRAME FLY 
;LADE B-REGISTER MIT &81 
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0D51 ;ADRESSE EVENT BLOCK VOM STACK 

0D52 ;KL NEW FRAME FLY 

0D55 . TERMINATE COLOUR EVENT BLOCK 

0D55 ;EVENT BLOCK: SET INKS 

0D58 ;KL DEL FRAME FLY 

0D5B ;PARAMS D. LFD FARBSATZ HOLEN 

0D5E ;MC CLEAR INKS 

0D61 .SET INKS ON FRAME FLY 

0D61 ;CURR. FLASH PERIOD 

0D64 ;DEKREMENTIERE FLASH PERIOD 

0D65 ;FLASH INKS 

0D67 ;ZEIGER AUF COLVAL 

0D68 ;KOLE COLVAL-FLAGS 

0D69 ;COLVAL-FLAG POSITIV? 

0D6A ;UENN NEIN, DANN FERTIG! , 

0D6B ;PARAMS D. LFO FARBSATZ HOLEN 

0D6E ;MC SET INKS 

0D71 ;DELETE COLVAL 

0073. FLASH INKS 

0D73 ;PARAMS D. LFD FARBSATZ HOLEN 

0076 ;(CURR FLASH PERIOD) 

0D79 ;MC SET INKS 

0D7C ;FLAG LFD. FARBSATZ 

0D7F ;LFD. FARBSATZ NACH AKKU 

ODBO .-BILDE EINERKOMPLEMENT 

0D81 ;ERGEBNIS ZURÜCK NACH FLAG LFD. FARBSATZ 

0082 ;AKKU LÖSCHEN UND FLAGS ZURÜCKSETZEN 

0D83 ;ALLE COLVAL-FLAGS LÖSCHEN 

0D86 ;ZURÜCK 
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0D87.PARAMS DES LFD FARBSATZ HOLEN 

Als Ausgaben liefert diese Routine im Akkumulator die Flash Periods und 
im DE-Register die Adresse der Farbtabelle. 

0D87 ;FARBSPEICHER 1. FARBEN 

0D8A ;(FLAG LFD. FARBSATZ) 

0D8D ;AKKU = 0? 

0D8E ;(FLASH PERIOO 1. FARBE) 

0D91 ;WENN AKKU = 0, DANN FERTIG! 

0D92 ;FARBSPEICHER 2. FARBE 

0D95 ;(FLASH PERIODS) 

0D98 ;ZURÜCK 

0D99. FARBMATR1X 

0D99 14 04 15 IC 18 ID 0C 05 

0DA1 OD 16 06 17 iE 00 1F OE 

0DA9 07 OF 12 02 13 1A 19 1B 

0DB1 OA 03 OB 01 08 09 10 11 

0DB9. SCR FILL BOX 

Vorgegebenes Fenster mit einer Farbe füllen (Position Zeichenbezogen, 
Mode-abhängig). Im Akkumulator wird die Farbmaske an SCR FILL BOX über¬ 
geben. 

0DB9 ;FARBMASKE NACH C-REGISTER 

0DBA ;COMPUTE WINDOW PARAMS 

0DBD..SCR FLOOD BOX 


Vorgegebenes Fenster mit einer Farbe füllen (Positionen sind Bildschirm¬ 
adressen, Mode-unabhängig). Zum Füllen des Fenster muß der Routine im 
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HL-Register die BiIdschirmadresse übergeben werden, ab der zu Füllen 
ist. Der Inhalt des DE-Register legt die Größe des zu füllenden 
Bereiches fest und das C-Register enthält die Farbmaske, mit der gefüllt 
werden soll. 


ODBD ;BILDSCHIRMADRESSE AUF STACK LEGEM 

ODBE ;ANZAHL BYTES PRO ZEILE 

ODBF ;ÜBERTRAG ERMITTELN 

0DC2 ;KE IN ÜBERTRAG 

0DC4 .-ANZAHL BYTES PRO ZEILE 

0DC5 ;FARBMASKE IN BILDSCHIRMSPEICHER 

0DC6 ;SCR NEXT BYTE 

0DC9 ;WEITER SOLANGE NOCH BYTES 

ODCB .-WEITERE RASTERZEILE 

ODCD ;BC-REGISTER FREISTELLEN 

ODCE ;DE-REGISTER FREISTELLEN 

ODCF ;BYTE IN BILDSCHIRMSPEICHER SCHREIBEN 

ODDO ;SPRINGE, WENN DIESE 

0OD1 ;ZEILE IST ABGEHANDELT 

0DD3 ;LSB ZÄHLER ZU KOPIERENDE BYTES 

0DD4 ;MSB ZÄHLER 

0DD6 ;MSB BILDSCHIRMADRESSE 

0DD7 ;LSB BILDSCHIRMADRESSE 

0DD8 jZIELADRESSE FÜR LDIR 

0DD9 .-BILDSCHIRMSPEICHER FÜLLEN 

ODDB ;ALTEN INHALT VON DE-REGISTER 

ODDC ;ALTEN INHALT VON BC-REGSITER 

ODDD ,-BILDSCHIRMADRESSE VOM STACK HOLEN 

ODDE ;SCR NEXT LINE 

0DE1 ;WENN ES NOCH RASTERZEILEN GIBT, 

0DE2 ;DANN MACHE WEITER 

0DE4 ;AUFGABE ERLEDIGT 

0DE5. SCR CKAR INVERT 


Bei einem Zeichen Vorder- und Kintergrundfarbe vertauschen. Im Hl-Regi- 
ster wird die Position des Zeichen an SCR CHAR INVERT übergeben 
<H=Spalte, L=Zeile). 
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0DE5 ; HINTERGRUNDFARBE NACH AKKU 

0DE6 ;XOR-VERKNÜPFUNG MIT VORDERGRUNDFARBE 

0DE7 ;INVERTIERMASKE NACH C BRINGEN 

0DE8 ;SCR CHAR POSITION 

ODEB ;ES GIBT ACHT RASTERZEILEN 

ODED ;BILDSCHIRMADRESSE AUF STACK 

ODEE ;B=ANZAHL DER BYTES PRO ZEICHEN 

VERMITTELTE INVERTIERMASKE 

ODEF ;BYTE VON BILDSCHIRMADRESSE LESEN 

ODFO ;BYTE INVERTIEREN 

0DF1 ;BYTE WIEDER AN BILDSCHIRMADRESSE 

0DF2 ;SCR NEXT BYTE 

0DF5 .-WEITER SOLANGE NOCH BYTES VORHANDEN 

0DF7 ;B=ANZAHL DER BYTES PRO ZEICHEN 

;ÜBERMITTELTE INVERTIERMASKE 

ODF8 .-BILDSCHIRMADRESSE VOM STACK HOLEN 

ODF9 ;$CR NEXT LINE 

ODFC ;RASTERZEILE=RASTERZEILE-1 

ODFD .-WEITER SOLANGE RASTERZEILEN 

ODFF ; FERTIG 

0E00.SCR HW ROLL 

Schiebt den Bildschirm (hardwaremäßig) um eine Zeile nach unten, wenn 
B=0 ist und um eine Zeile nach oben, wenn B<>0 ist. Im Akku muß der Wert 
für die Farben stehen, die die neue (leere) Zeile annehmen soll. 

0E00 ;HINTERGRUNDFARBE NACH C-REGISTER 

0E01 ,-SCROLL-RICHTUNG UND FARBE AUF STACK 

0E02 ;DE MIT DEFAULTWERT LADEN 

0E05 ;B-REG!STER MIT DEFAULTWERT LADEN 

0E07 ;FILL AREA 

OEOA ;SCROLL-RICHTUNG UND FARBE VOM STACK 

OEOB ;MC WAIT FLYBACK 

OEOE ,-SCROLL-RICHTUNG NACH AKKUMULATOR 

OEOF ;ZERO-FLAG MANIPULIEREN 

0E10 ;SCROLL-RICHTUNG OBEN 

0E12 ;DE = OFFSET 

0E15 ;ADD OFFSET 
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OE 18 ;0E INITIALISIEREN 

0E1B ;BYTES PRO ZEILE 

OE ID ;ADD OFFSET 

0E1F ;DE = OFFSET 

0E22 ;ADD OFFSET 

0E25 ;DE = OFFSET 

0E28 ;BYTES PRO ZEILE 

0E2A .-POSITION IN EINER ZEILE 

0E2D .-ADDIERE OFFSET 

0E2E ;A = HIGH BYTE 

0E2F ;RASTER ADRESS EINBEZIEHEN 

0E31 ;UND ERGEBNIS ZURÜCKSCHREIBEN 

0E32 ;(HIGH BYTE SCREEN START) 

0E35 ;MSB BILDSCHIRMADRESSE 

0E36 .-ERRECHNEN UND INS H-REGISTER 

0E37 ;BYTES PRO ZEILE 

0E38 ;ES GIBT ACHT RASTERZEILEN 

0E3A ;SCR FLOOD BOX 

0E3D.ADD OFFSET 

0E3D ,-(POSITION IN EINER ZEILE) 

0E40 ,-BASISADRESSE UND OFFSET ADDIEREN 

0E41 ;SCR SET OFFSET 

0E44.-. SCR SU ROLL 


Verschiebt einen BiIdschirmbereich softwaremäßig. A und B sind wie bei 
SCR HW ROLL zu beschicken. Zusätzlich muß H die Spaltemummer des linken 
Randes des zu verschiebenden Bereiches enthalten, L die oberste Zeile, D 
dla rechte Spalte und E die unterste Zeile des Bereiches. 

Beachten Sie, daß Spalte und Zeile 0 die linke obere Ecke des Bild¬ 
schirms darstellt. Achten Sie auch unbedingt selbst darauf, daß die 
übergebenen Parameter tatsächlich einen Bereich innerhalb des Video-RAMs 
markieren. 
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0E44 
QE45 
0E46 
0E47 
0E49 
0E4A 
0E4D 
0E4E 
0E4F 
0E52 
OE 53 
0E54 

0E56 
0E57 
0E59 
0E5A 
0E5D 
0E5E 
0E5F 
OE 60 
0E63 
0E64 
0E67 
0E68 
0E69 
0E6C 
0E6D 
0E6F 
0E70 
0E71 
0E72 
0E74 
0E75 
0E76 
OE 79 
0E7A 
0E7B 
0E7E 
0E7F 


HINTERGRUNDFARBE RETTEN 
A = SCROLL-RICHTUNG 
ERGEBNIS NULL? 

WENN 0 ABWÄRTS SCROLLEN 
RETTE XI,Y1 
iCOMPUTE WINDOW PARAMS 
;HOLE XI UNO Yl 
Y1=Y1+1 

SCR CHAR POSITION 
C = X2 
A * Y2 

Y2=Y2 MINUS BILDSCHIRMZEILE (8 
RASTERZEILE) 

ERGEBNIS (COUNTER) NACH B 
ERGEBNIS NULL? 

HOLE X2 UND Y2 
MC WAIT FLYBACK 
RETTE X2.YC0UNTER 
RETTE XI UND Yl 
RETTE X2 UND Y2 
COPY RASTER LINE 
HOLE X2 UND Y2 
SCR NEXT LINE 
DE = X2,Y2 
HOLE XI UND Yl 
SCR NEXT LINE 

HOLE X2 UND MOOY2 (COUNTER) 

COUNTER=0? (RASTERZEILEN) 

ÜBERTRAGE X2,Y2 
NACH HL 

BYTE PRO RASTERZEILE 
E = EINE ZEILE (8 RASTERZEILEN) 

HOLE PAPIERFARBE 
C = PAPIERFARBE 
SCR FLOOD BOX 
XI UND Yl RETTEN 
X2 UND Y2 RETTEN 
CALC WIN PARAMS 

ANZAHL DER BYTES IM FENSET (X-RICHTUNG) 
A = ZEILEN (Y-RICHTUNG) 
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0E80 ;MINUS 8 RASTERZEILEN 

0E82 ;ERGEBNIS NACH B 

0E83 ;HOLE X2 UND Y2 

0E84 ;MIT XI,Y1 TAUSCHEN 

0E85 ;RASTERZEILE KOPIEREN 

0E87 ;ANZAHL DER ZEILEN RETTEN (COUNTER) 

0E88 ;L = XI 

0E89 ;D = Y1 

0E8A ;X1 = XI MINUS 1 

0E8B ;SCR CHAR POSITION 

0E8E ;DE = XI,Y1 

0E8F ;SCR CHAR POSITION 

0E92 ;HOLE COUNTER 

0E93 ;MC WAIT FLYBACK 

0E96 ;SCR PREV LINE 

0E99 ;X2,Y2 RETTEN 

0E9A ;DE = X2.Y2 

0E9B ;SCR PREV LINE 

0E9E ;X1,Y1 RETTEN 

0E9F ;COUNTER RETTEN 

OEAO ;COPY RASTER LINE 

OEA3 ;COUNTER HOLEN 

0EA4 ;HOLE XI,VI 

0EA5 ;HOLE X2,Y2 

0EA6 ;FERTIG? 

0EA8 ;K1LL UPPER LINE (8 RASTERZEILEN) 

OEAA. COPY RASTER LINE 


COPY RASTER LINE kopiert eine vollständige Rasterzeile in einen anderen 
Bereich. HL muß dabei die Adresse der Quellzeile beinhalten, und DE die 
Adresse der Zielzeile. Das C-Register ist für die Anzahl der zu kopie¬ 
renden Bytes verantwortlich. 


OEAA 

OEAC 

OEAF 

0EB1 

0EB4 


;COUNTER INIT 
;RA-TEST AUFRUFEN 
;AUFGETRETEN 
;RA-TEST AUFRUFEN 
;INDIRECT COPY? 
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0EB6 .-ANZAHL DER BYTES RETTEN 

0EB7 .-BERECHNE LÄNGE 

0EB8 ;VERGL. 0EB7 

0EB9 ;LÄNGE NACH C 

OEBA .-ERSTEN TEIL DER ZEILE KOPIEREN 

OEBC ;HOLE ANZAHL DER BYTES 

OEBD ;BERECHNE ZAHL DER KOPIERTEN BYTES 

OEBE ;VERGL OEBE 

OEBF ;VERGL OEBE 

OECO ;VERGL OEBE 

OEC1 ;ERGEBNIS NACH AKKU 

0EC2 ;RASTER ADRESS BITS REKONSTRUIEREN 

0EC4 ;ERGEBNIS NACH H 

OEC5 .-ZWEITEN TEIL DER ZEILE KOPIEREN 

0EC7 ;RA-TEST AUFRUFEN 

OECA ;COPY STRAIGHT LINE 

OECC ;ANZAHL DER BYTES RETTEN 

OECD ;BERECHNE LÄNGE 

OECE ;VERGL. OECE 

OECF .-LÄNGE NACH C 

OEDO .-ZWEITEN TEIL DER ZEILE KOPIEREN 

0ED2 ;HOLE ANZAHL DER BYTES 

0ED3 ,-BERECHNE ZAHL DER KOPIERTEN BYTES 

0ED4 ;VERGL. 0ED4 

0ED5 ;VERGL. 0ED4 

OED6 ;VERGL. 0ED4 

0ED7 ;ERGEBNIS NACH AKKU 

OED8 ;RASTER ADRESS BITS REKONSTRUIEREN 

OEDA ;ERGEBNIS NACH D 

OEDB ;NORMAL KOPIEREN 

OEDD ;FERTIG 

OEDE .COPY STRAIGHT LINE 


COPY STRAIGHT LINE kopiert eine vollständige Rasterzeile in einen ande¬ 
ren Bereich. HL muß dabei die Adresse der Ouellzeile beinhalten, und DE 
die Adresse der Zielzeile. Das C-Register ist für die Anzahl der zu 
kopierenden Bytes verantwortlich. 
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OEDE 

;HOLE LÄNGE DER ZEILE 

OEDF 

;HOLE QUELL-BYTE 

OEEO 

.-KOPIERE ES IN ZIELBYTE 

0EE1 

;SCR NEXT BYTE 

0EE4 

;HL = ZIEL-POINTER 

0EE5 

;SCR NEXT BYTE 

0EE8 

;HL = QUELL-POINTER 

0EE9 

;ZEILE KOPIERT? 

OEEB 

.■FERTIG 

OEEC.-. 



RA-TEST 


RA-TEST stellt fest, ob ein Übertrag der Raster Adress Bits stattgefun¬ 
den hat. Als Eingabeparameter erwartet die Routine jeweils in HL und DE 
eine BiLdschirmadresse sowie die Zeilenlänge in C. Falls ein Übertrag 
stattgefunden hat, befindet sich nach dem Verlassen von RA-TEST das 
Carry-Bit im High-Zustand. 


OEEC 

OEED 

OEEE 

OEEF 

OEFO 
OE Fl 
0EF2 
0EF4 
0EF6 
0EF7 
0EF8 


;A = ANZAHL DER BYTES 
;DE = 1. VIDEO-ADRESS 
;COUNTER -1 

;ADD1ERE LSB DER 2. VIDEO-ADRESS ZUM 
;COUNTER 
;FERTIG? 

;H0LE MSB DER 2. BILDSCHIRMADRESSE 
.•ÜBERTRAG ? 

;VERGL 0EF2 
;FERTIG? 

;CARRY = HIGH {OUT PARAMS) 

.•FERTIG! 


0EF9 


SCR UNPACK 


SCR UNPACK vergrößert dir Zeichenmatrix für MODE 0 und 1. Die Routine 
orwartet im HL-Register die Adsresse der kompremierten Matrix (MODE 2), 
und im DE-Register die Zieladresse für die errechnete Matrix. 
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0EF9 ;SCR GET MODE 

OEFC ;M0DE 0 GESETZT 

OEFE ;MODE 1 GESETZT 

0F00 ;ZÄHLER: ACHT BYTES 

0F03 ;KOPIERVORGANG DURCHFÜHREN 

0F05 ;DAS WAR'S 

0F06 ;BIT-COUNTER UND MASKE NACH BC (MODE 0) 

0FO9 ;JUMP START 

OFOB ;BIT-COUNTER UND MASKE NACH BC (MODE 1) 

OFOE ;COUNTER INITIALISIEREN (8 BYTES 

;KOPIEREN) 

OF10 .-COUNTER RETTEN 

0F11 .-POINTER FÜR GEPACKTE MATRIX RETTEN 

0F12 ;L = KOMPREMIERTES MATRIXELEMENT 

0F13 ;BIT-COUNTER MERKEN 

0F14 ;AKKU LÖSCHEN 

0F15 ;HOLE BIT AUS KOMPREMIERTER MATRIX 

0F17 ;BIT VORHANDEN? 

0F19 ;MERGE MATIX 

0F1A ;HOLE BIT AUS MATRIX 

OF1C ;BIT VORHANDEN? 

0F1E .-SPEICHER UNGEPACKTES BYTE 

0F1F ,-POINTER AUF NÄCHSTES BYTE 

0F20 .-ALLE BITS VERARBEITET? 

0F22 ;HOLE BIT-COUNTER 

0F23 ;HOLE POINTER FÜR GEPACKTE MATRIX 

0F24 ;AUF NÄCHSTE ZEILE DER MATRIX ZEIGEN 

0F25 ;HOLE COUNTER 

0F26 ;COUNTER-1 

0F27 ;MATRIX KOPIERT UND KONVERTIERT? 

0F29 .-FERTIG! 

0F2A. SCR REPACK 


Zeiehenmatrix wieder auf Originalform stauchen. Die Routine erwartet im 
H-Register die Spalte, und im L-Register die Reihe der Matrix. Im Akkum- 
lator muß sich weiterhin die PEN-Nummer, und DE-Register die Zieladresse 
für die kompremierte Matrix befinden. 
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0F2A 

QF2B 

0F2E 

0F31 

0F33 

0F35 

0F37 

0F3B 

0F39 

0F3A 

0F3B 

0F3C 

0F3F 

0F41 


.•HINTERGRUNDFARBE NACH C-REGISTER 
;SCR CHAR POSITION 
;SCR GET MODE 

;ES GIBT ACHT RASTERZEILEN 
.-MODE 0 GESETZT 
.'MODE 1 GESETZT 

;AKKU AUS BILDSCHIRMSPEICHER FÜLLEN 
.•XOR-VERKNÜPFUNG MIT HINTERGRUNDFARBE 
;EINERKOMPLEMENT BILDEN 
.•ERGEBNIS NACH (DE) SCHREIBEN 
,‘ZEIGER ERHÖHEN 
;SCR NEXT LINE 

.-WEITER SOLANGE NOCH RASTERZEILEN 
.-FERTIG 


0F42 

0F43 

0F44 

0F45 

0F48 

0F4B 

0F4E 

0F4F 

0F50 

0F51 

0F52 

0F53 

0F56 

0F57 

0F59 


;RETTE DEN INHALT ALLER REGISTER 
;VERGL. 0F42 
;VERGL. 0F42 

;ERSTES BYTE KONVERTIEREN 
;SCR NEXT BYTE 
.•ZWEITES BYTE KONVERTIEREN 
;AKKU = MATRIXELEMENT 
,-HOLE ZIELADRESSE 

;MATRIXELEMENT IN ZIELADRESSE SCHREIBEN 

;AUF NÄCHSTE ADRESSE ZEIGEN 

,-HOLE SPALTE UND REIHE 

;SCR NEXT LINE 

;HOLE COUNTER 

;ALLE BYTES ÜBERTRAGEN? 

,-WENN JA DANN FERTIG 


0F5A 

0F5C 

0F5E 

0F5F 

OF60 

0F61 

0F63 

0F64 


C = MASKE (MODE 0) 

B = BIT-COUNTER 
HOLE BYTE AUS VIDEO-RAM 
HINTERGRUNDFARBE AUSMASKIEREN 
MIT MASKE VERBINDEN 
PIXEL = PEN FARBE? 

WENN NEIN, DANN PIXEL AKTIVIEREN 
PIXEL IN MATRIX IMPLEMENTIEREN 
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0F66 ;VERGL. 0F64 

0F68 .-ALLE BITS ÜBERTRAGEN 

0F6A ;ROCKSPRUNG 

0F6B ;RETTE DEN INHALT ALLER REGISTER 

0F6C ;VERGL. 0F6B 

0F6D ;VERGL. 0F6B 

0F6E .-INITIALISIERE COUNTER 

0F70 ;HOLE BYTE AUS VIDEO-RAM 

0F71 ;HINTERGRUNDFARBE AUSMASKIEREN 

0F72 ;MIT MASKE VERBINDEN 

0F7A .-PIXEL = PEN FARBE? 

0F76 ;UENN NEIN, DANN PIXEL AKTIVIEREN 

0F77 .-PIXEL IN MATRIX IMPLEMENTIEREN 

0F79 ;VERGL. 0F77 

0F7A ;VERGL. 0F77 

0F7B ;VERGL. 0F77 

0F7D .-PIXEL VORHANDEN? 

0F7F .-WENN NICHT, PIXEL AKTIVIEREN 

OF80 ;UND IN MATRIX IMPLEMENTIEREN 

0F82 ;SCR NEXT BYTE 

0F85 .-ALLE BITS ÜBERTRAGEN? 

0F87 ;A * MATRIXELEMENT 

0F88 ,-HOLE MATRIX-POINTER 

0F89 .-BYTE IN MATRIX SCHREIBEN 

0F8A ;POINTER AUF NÄCHSTES BYTE DER MATRIX 

0F8B ;HOLE VIDEO-ADRESS 

0F8C ;SCR NEXT LINE 

0F8F ;HOLE COUNTER 

0F90 ;ALLE RASTERZEILEN ÜBERTRAGEN? 

0F92 ;FERTIG! 

0F93. SCR HORIZONTAL 


Horizontale Linie ziehen. Die Routine erwartet XI im DE-Register, X2 im 
BC-Register und die Y-Koordinate im HL-Register. Im Akkumulator muß sich 
der Farbmaske befinden. 
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0F93 ;MASK HANDLING 

0F96 ;DRAW H-LINE 

0F99 ;FORTSETZUNG FOLGT 

0F9B. SCR VERTICAL 

Vertikale Linie ziehen. Die Routine erwartet Y1 im HL-Register, Y2 im 
BC-Register und die X-Koordinate im DE-Register. Im Akkumulator muß sich 
der Farbmaske befinden. 

0F9B ;MASK HANDLING 

0F9E ;DRAW V-LINE 

0FA1 ;ALTE MASK NACH HL-REGISTER 

OFAA ;LSB ALTE MASK NACH AKKU 

0FA5 ;(GRA PEN) 

0FA8 ;MSB ALTE MASK NACH AKKU 

0FA9 ;KASK-PARAM 

OFAC .-ERLEDIGT! 

OFAD.MASK HANDLING 

OFAD ;HL-REGISTER FREISTELLEN 

OFAE ;(GRA PEN) 

0FB1 ;(GRA PEN) 

0F84 ;MASK-PARAM NACH AKKU 

0FB7 ;MASK-PARAM NACH H 

0FB8 ;ALLE BITS SETZEN ERGIBT 

OFBA .-GESCHLOSSENEN LINIENZUG 

OFBD ;ALTE MASK KONSERVIEREN 

OFCO ,-ALTEN INHALT VON HL-REGISTER 

0FC1 ;DAS WAR'S 

0FC2.DRAW H-LINE 


0FC2 

0FC3 

0FC6 


CARRY FÜR H-LINE SETZEN 
HOLE PARAMERTER 
LINIENMASKE ERSTELLEN 
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0FC8 

PUNKTMASKE HOLEN 

0FC9 

BIT = PEN-COL 

OFCB 

PIXELANZAHL-1 

OFCC 

ALLE PIXEL ÜBERTRAGEN? 

ofce 

PIXELANZAHL+1 

OFCF 

ALLE PIXEL ÜBERTRAGEN? 

0FD1 

PIXELMASKE ERSTELLEN 

0FD3 

GRENZE ERREICHT? 

0FD5 

PIXEL HIGH? 

0FD7 

PENCOL OK? 

0FD9 

WENN NICHT PENCOL SETZEN 

OFDA 

PIXELMASKE ERSTELLEN 

OFDC 

HOLE NÄCHSTES PIXEL 

OFDE 

PIXELANZAHL-1 

ofdf 

ALLE PIXEL ÜBERTRAGEN? 

0FE1 

PIXELANZAHL+1 

0FE2 

PENCOL OK? 

0FE4 

PIXELMASKE ERSTELLEN 

0FE6 

PENCOL OK? 

0FE8 

PIXEL HIGH? 

OFEA 

PENCOL OK? 

OFEC 

WENN NICHT PENCOL SETZEN 

OFED 

PIXELMASKE ERSTELLEN 

OFEF 

BIT = PEN-COL 

0FF1 

MASKEN RETTEN 

0FF2 

HOLE PUNKMASKE 

0FF3 

<GRA PAPER) 

OFF6 

IN B MERKEN 

0FF7 

HOLE HINTERGRUND-MODUS 

OFFA 

MODUS LOKALISIEREN 

OFFB 

FERTIGES BYTE IN VIDEO-RAM ÜBERTRAGEN 

OFFD 

RETTE MASKEN 

OFFE 

HOLE PUNKTMASKE 

OFFF 

(GRA PAPER) 

1002 

NACH B ÜBERTRAGEN 

1003 

FLAG-INIT 

1007 

HOLE MASKEN 

1008 

GRENZE ÜBERSCHRITTEN? 

100A 

SCR NEXT BYTE 

100D 

ALLE PIXEL ÜBERTRAGEN 





100E 

;VERGL. 100D 

100F 

;VERGL. 100D 

1011 

;A=LINE-MASK 

1012 

,-LINE-MASK MERKEN 

1015 

.•FERTIG! 


1016. 

1016 

;CARRY FÜR H-LINE SETZEN 

1017 

.-HOLE PARAMETER 

101A 

;LINIENMASKE ERSTELLEN 

101C 

;<GRA PEN) 

101F 

;BIT * PEN-COL 

1021 

.-HINTERGRUNDMODUS? 

1024 

•;TRANZPARENT MODUS AKTIVIERT? 

1025 

;UENN NEIN WECHSLE MASKE 

1027 

;(GRA PAPER) 

102A 

;MASKEN RETTEN 

102B 

,-COLMASK HOLEN 

102C 

;SCR WRITE 

102F 

.-MASKEN HOLEN 

1030 

;SCR PREV LINE 

1033 

;NEXT PIXEL 

1034 

;VERGL. 1033 

1036 

.-ALLE PIXEL ÜBERTRAGEN? 

1037 

;VERGL. 1036 

1039 

;VERGL. 1036 

103B 

;RETTE Y-KOORDINATE 

103C 

;V-LINE? 

103E 

;MS8 DER X-KOORDINATE NACH HL 


.-TRANSFERIEREN 

103F 

,-LSB DER X-KOORDINATE NACH HL 


;TRANSFERIEREN 

1040 

;CARRY FÜR SBC ELEMINIEREN 

1041 

.-KOORDINATE ERMITTELN 

1043 

;VERGL. 1041 

1046 

.-LÄNGE SYNCHRONISIEREN 

1047 

;VERGL. 1046 

1048 

;UND MERKEN 
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1049 ;SCR DOT POSITION 

104C ;LINE-MASK HOLEN 

104F ;IN B-REGISTER ÜBERTRAGEN 

TOSO .-SYNCHRONISIERTE LÄNGE HOLEN 

1051 ;DAS WAR'S 

1° 52 . DEFAULT FARBEN 

1052 04 04 0A 13 OC OB 14 15 

105A 0D 06 iE 1F 07 12 19 04 

1062 17 04 04 0A 13 OC OB 14 

106A 15 OD 06 1E 1F 07 12 19 

1072 OA 07 
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9.6.3 Text Screen (TXT) 

Dieses Pack ist, wie der Name schon sagt, für das Handling von 
Texten verantwortlich. Zu dieser Arbeit gehört die Organisation 
der achts Windows, die Darstellung von Zeichen auf dem Bild¬ 
schirm sowie die Verwaltung des Cursors. Bei der Durchführung 
dieser Arbeiten bedient sich der TEXT SCREEN weitestgehend 
der Möglichkeiten des SCREEN PACKs. Das SCREEN PACK 
ist somit die Exekutive des TEXT SCREEN. 

Unmittelbar nach dem Aufruf beginnt der TEXT SCREEN mit 
der vollständigen Initialisierung des Packs. Dabei werden die 
Indirektions des TEXT SCREEN in den RAM-Speicher kopiert. 
Diese Indirektions sind: 

BDCD ;TXT DRAW/UNDRAW CURSOR 

;Setzen/Löschen des Cursors. 

BDDO jTXT DRAW/UNDRAW CURSOR 

;dito 

BD03 ;TXT WRITE CHAR 

;Ein Zeichen auf den Bildschirm 
.•schreiben. 

BDD6 ;TXT UNURITE CHAR 

;Ein Zeichen vom Bildschirm lesen. 

BDD9 ;TXT OUT ACTION 

;Ausgabe eines Zeichens auf dem 
.'Bildschirm oder Ausführung eines 
.•Steuercodes. 

Als zweite Tabelle wird die Steuerzeichen-Sprungtabelle ins 
KAM kopiert. Diese Tabelle steht ab Adresse &B763. 

Zu jedem der acht Windows gehört ein &0E Byte großer Para¬ 
meterblock, der ebenfalls vom TEXT SCREEN auf seinen 
Default-Wert gebracht wird. Zuerst werden mit der Routine 
DEFAULT PARAMS SETZEN die Fensterparameter auf ihren 
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"Anfangswert" gebracht. Im Registerpaar HL werden die nötigen 
Informationen zur Farbwahl an DEFAULT PARAMS SETZEN 
übergeben. H enthält den Wert für die Hintergrundfarbe und L 
den Wert für die Vordergrundfarbe. Ist auf diese Weise ein 
Parameterblock initialisiert, so wird dieser Parameterblock mit 
RESET PARAMS (ALLE FENSTER) auf alle acht Windows 
bezogen. Damit ist die Initialisierung des TEXT SCREEN 
durchgeführt. 

Die in den Cursor-Routinen verlangten oder gelieferten Koordi¬ 
naten sind als logische Angeben zu verstehen, d.h. sie beziehen 
sich auf das laufende Fenster. Die Koordinate 1,1 ist dabei die 
linke obere Ecke des Fensters. Wollen Sie, z.B. mit TXT SET 
CURSOR, den Cursor außerhalb des Fensters positionieren, wird 
er automatisch auf die nächste mögliche Position innerhalb des 
Fensters gesetzt, falls der Cursor eingeschaltet ist oder nachfol¬ 
gend ein Zeichen dargestellt werden soll. Dadurch wird auch die 
laufende Position (die Sie mit TXT GET CURSOR zurückbe¬ 
kommen) geändert. 

Ist der Cursor ausgeschaltet, wird die gewünschte neue Position 
zunächst akzeptiert, bis entweder ein Zeichen dargestellt oder 
der Cursor eingeschaltet wird. 


1074 


TXT INITIALISE 


Vollständige Initialisierung 

1074 

1077 

1078 
107B 
107E 
1081 


des TEXT PACKs. 

;TXT RESET 

;AKKUMULATOR WIRD GELÖSCHT 
;FLAG USER-MATRIX LÖSCHEN 
;PAPER=0 UND PEN=1 
;DEFAULT PARAMS SETZEN 
;RESET PARAMS (ALLE FENSTER) 
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TXT RESET 


Oie Indirektions des TEXT PACXs werden ins RAM (ab Adresse &BDCD) 
kopiert. 

1084 

;RESTORE TXT INOIRECTIONS 

1087 

;MOVE (HL+3) NACH ((HL+1)), CNT=(HL) 

108A 

;DEFAULT STEUERZEICHEN SPRÜNGE KOPIEREN 

1080 

;15 BYTES 

10SE 

.•ZIELADRESSE 

1090 

;COOE FÜR JP 

1091 

;TXT DRAU/UNDRAU CURSOR 

1093 

;CODE FÜR JP 

1094 

;TXT DRAW/UNDRAU CURSOR 

1096 

;CODE FÜR JP 

1097 

;TXT URITE CHAR 

1099 

;COOE FÜR JP 

109A 

;TXT UNWRITE CHAR 

109C 

.-CODE FÜR JP 

1090 

;TXT OUT ACT ION 

109F. 

..RESET PARAMS (ALLE FENSTER) 

Boi DEFAULT PARAMS SETZEN 

(&1139) werden die Fensterparameter auf ihren 

Anfangswert gebracht. Ist 

das geschehen, so werden diese Parameter auf 

alte acht Fenster bezogen 

(vgl. &107E und &1081). 

109F 

.•ANZAHL DER FENSTER 

10A1 

.-ZIEL: START PARAMETER FENSTER 0 

10A4 

.•QUELLE: DIVERSE PARAMETER FÜR FENSTER 
;&B726 CURSOR POSITION (ROW, COL) 

;&B728 SCROLL FLAG 
;&B729 FENSTER OBEN 
;&B72A FENSTER LINKS 
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/&B72B FENSTER UNTEN 
Z&872C FENSTER RECHTS 
;&B72D ROLL COUNT 
;&B72E CUSOR FLAG 
Z&872F PEN 
/&B730 PAPER 
;&B731 BACKGROUND KODE 
;&B733 GRAPH CHAR WRITE MODE 
;SB734 1. ZEICHEN USER MATRIX 

10A7 ,'ZÄHLER: ANZAHL ZU KOPIERENDE BYTES 

10AA ;KOPIERVORGANG AUSFÜHREN 

10AC ;NÄCHSTES FENSTER 

10AD ,-SPRINGE, WENN NOCH EIN FENSTER 

10AF ;{LFD. BILDSCHIRMFENSTER) 

10B2 /ERLEDIGT 

10B3 . FARBEN DECODIEREN 

Beim Verlassen dieser Routine steht in C-Register die Kennziffer für das 
aktuelle Bildschirmfenster. 

10B3 ;(LFD. BILDSCHIRMFENSTER) 

10B6 ;AKKU FREI FÜR WEITERE VERWENDUNG 

10B7 ;ES GIBT ACHT WINDOWS 

10B9 ;AKKU DIENT ALS ZÄHLER 

10BA /ZÄHLER-1 (FENSTER 0 BIS 7) 

10BB /TXT STR SELECT 

10BE /TXT DRAW/UNDRAW CURSOR 

10C1 /TXT GET PAPER 

10C4 /LFD. PAPER 

10C7 /TXT GET PEN 

10CA :(LFD. PEN) 

10CD /SPRINGE, WENN NOCH EIN FENSTER 

10CF /LFD. BILDSCHIRMFENSTER NACH AKKU 

10DO - /FERTIG 
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1001 . FENSTERPARAMETER AUF DEFAULT 

Oie Fensternummer wird im Akkumulator an die Routine übergeben 

10D1 ;FENSTERNUMMER NACH C 

10D2 ;ES GIBT ACHT FENSTER 

10D4 ;AKKU DIENT ALS ZÄHLER 

10D5 ;ZÄHLER-1 (FENSTER 0 BIS 7> 

10D6 ;TXT STR SELECT 

10D9 ;REGISTERINHALTE SICHERN 

10DA ;(TXT LFD PEN) 

10DD ;DE FAULT PARAMS SETZEN 

10E0 ;REGISTERINHALTE WIEDER HERSTELLEN 

1OE1 ;SPRINGE, WENN NOCH EIN FENSTER 

10E3 ;FENSTERNUMMER NACH AKKU 


10E4. TXT STR SELECT 

Mit TXT STR SELECT kann ein Textfenster ausgewählt werden. Die Nummer 
des neuen Textfensters muß beim Aufruf von TXT STR SELCET im Akkumulator 
stehen. Beim Verlassen der Routine steht die Nummer des Textfensters im 
Akku, welches vor dem Aufruf aktiv war. 


10E4 
10E6 
10E9 
10EA 
10E B 
10EC 
10ED 

10EE 

10EF 

10FO 

10F1 

10F4 

10F7 

10F8 

10FB 


FENSTERNUMMER IM BEREICH 0 BIS 7 

LFD. BILDSCHIRMFENSTER 

IST DIESES FENSTER SCHON AKTIVIERT? 

DANN GIBT'S NICHTS MEHR ZU TUN 
REGISTERINHALTE SICHERN 
REGISTERINHALTE SICHERN 
NUMMER DES AKTUELLEN BILDSCHIRMFENSTERS 
NACH HL 

NUMMER DES NEUEN FENSTERS 
NUMMER AUCH NACH B 
ALTE NUMMER IN DEN AKKUMULATOR 
ADR. FENSTER PARAMS NACH DE 
LDIR CNT=14 

NEUE NUMMER IN DEN AKKUMULATOR 
ADR. FENSTER PARAMS NACH DE 
FÜR DEN KOPIERVORGANG VERTAUSCHEN 
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10FC ;LDIR CNT=14 

10FF ;ALTE FENSTERNUMHER WIRD IM AKKU 

.•BEREITGESTELLT 

1100 ;REGISTERINHALTE UIEDER HERSTELLEN 

1101 ;REGISTERINHALTE WIEDER HERSTELLEN 

1102 ;ZURÜCK 

1103 .TXT SWAP STREAMS 


Die Parameter (Farben, Fenstergrenzen usw.) zweier Fenster werden mit¬ 
einander vertauscht. Dazu benötigt TXT swap STREAMS die Nummer der bei¬ 
den Fenster, deren Parameter vertauscht werden sollen. Die Nummer des 
einen Fensters seht beim Aufruf der Routine im B-Register, die des ande¬ 
ren im C-Register. 


1103 ;(LFD. BILDSCHIRMFENSTER) 

1106 ;AUF DEM STACK SICHERN 

1107 ;2. FENSTERNUMMER NACH AKKU 

1108 ;TXT STR SELECT 

HOB ;1. FENSTERNUMMER NACH AKKU 

1IOC ;(LFD. BILDSCHIRMFENSTER) 

11OF ;ADR. FENSTER PARAMS NACH DE 

1112 ;ADR. FENSTER PARAMS SICHERN 

1113 ;2. FENSTERNUMMER NACH AKKU 

1114 ;ADR. FENSTER PARAMS NACH DE 

1117 ;ADR. FENSTER PARAMS HOLEN 

1118 ;LDIR CNT=14 

111B ;HOLEN LFD. BILDSCHIRMFENSTER 

11IC ;TXT STR SELECT 

111E .-. LDIR CNT=14 


Kopiert 14 Bytes (Parameter für Fenster). 

Die Anzahl der zu kopierenden Bytes ist auf 14 festgelegt (BC), hingegen 
Quelle und Ziel frei wählbar sind. Beim Aufruf der Routine muß HL mit 
der Quelladresse geladen sein und DE die Zieladresse enthalten. Nur so 
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kann der LDIR sinnvoll ausgeführt werden. Der Inhalt von BC vor dem Auf¬ 
ruf der Routine ist bei ihrem Verlassen wieder hergestellt. 


11 IE ;BC ZUR WEITEREM VERWENDUNG SICHERN 

111F ;ZÄHLER: ANZAHL ZU KOPIERENDE BYTES 

1122 ;KOPIERVORGANG DURCHFÜHREN 

1124 ;8C WIE VOR DEM ANSPRUNG 

1125 ;ZURÜCK 

1126 .ADR. FENSTER PARAMS NACH DE 


Wird dieser Routine im Akkumulator eine Fensternummer übergeben, so 
stellt sie beim Verlassen im DE-Register die Adresse der zugehörigen 
Parameter zur Verfügung. Ebenso befindet sich im HL-Register die Adresse 
der zum aktuellen Fenster gehörigen Parameter. 


1126 ;FENSTERNUMMER IM BEREICH 0 BIS 7 

1128 ;A NACH E SICHERN 

1129 ;2A (ERGEBNIS IN A) 

112A ;3A (ERGEBNIS IN A) 

112B ;6A (ERGEBNIS IN A) 

112C ;7A (ERGEBNIS IN A) 

112D ;14A (ERGEBNIS IN A) 

112E ;ADDIERE LSB DER BASISADRESSE 

1130 ;LSB DER PARAMETERTABELLE 

1131 .-EVENTUELLER LSB ÜBERLAUF 

1133 ;BEI ERMITTLUNG DES MSB DER 

;PARAMETERTABELLE EINBEZIEHEN 

1134 ;DE S ANFANGSADRESSE DER PARAMETERTABELLE 

;(&0E BYTES) 

1135 ;LFD. CURSOR POSITION (ROU, COL) 

1138 .-FERTIG 

1139 . DEFAULT PARAMS SETZEN 


Hier werden die Fensterparameter auf ihren "Anfangswert" gebracht. Im 
Registerpaar HL werden die nötigen Informationen zur Farbwahl an DEFAULT 
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PARAMS SETZEN übergeben. H enthätt den Wert für die Hintergrundfarbe und 
L den Wert für die Vordergrundfarbe. 

1139 ;PAPER NACH 0 UND PEN NACH E 

113A ;WERT FÜR LFD. CURSOR-FLAG 

113C ;(TXT LFD. CURSOR-FLAG) 

113F ;PAPER NACH AKKU 

1140 ;TXT SET PAPER 

1143 ;PEN NACH AKKU 

1144 ;TXT SET PEN 

1147 ;AKKU LÖSCHEN UND FLAGS ZURÜCKSETZEN 

1148 ;TXT SET GRAPHIC 

114B ;TXT SET BACK 

114E ;FENSTERGRENZEN LINKS OBEN 

1151 ;FENSTERGRENZEN RECHTS UNTEN 

1154 ;TXT WIN ENA8LE 

1157 ;TXT VDU ENABLE 

USA. TXT SET COLUMN 

TXT SET COLUMN setzt die horizontale Position des Cursors. Im Akkumula¬ 
tor muß der Wert für die Spalte übergeben werden. 

115A ;UM EINS ERNIEDRIGEN 

115B ;LFD. FENSTER LINKS 

115E ;ERGIBT ABSOLUTE POSITION 

115F ;(LFD. CURSOR POSITION (ROW, COL)) 

1162 ;NEUE POSITION IN DER SPALTE 

1163 ;AUF ZUR CURSORPOSITIONIERUNG 

1165...TXT SET ROW 

TXT SET ROW setzt die vertikale Position des Cursors. Im Akkumulator muß 
der Wert für die Zeile übergeben werden. 

1165 ;UM EINS ERNIEDRIGEN 

1166 ;LFD. FENSTER OBEN 

1169 .-ERGIBT ABSOLUTE POSITION 
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116A ;(LFD. CURSOR POSITION (ROW, COL)) 

1160 ;NEUE POSITION IN DER ZEILE 

116E ;ZUR CURSORPOSITIONIERUNG 

11 70 . TXT SET CURSOR 

TXT SET CURSOR positioniert den Cursor. Vor dem Aufruf der Routine muß H 
mit dem Wert für die Spalte und L mit dem Wert für die Zeile geladen 
werden. 

1170 ;LFD. FENSTER OBEN, LINKS + HL 

1175 ;TXT DRAW/UNDRAW CURSOR 

1176 ;(LFD. CURSOR POSITION (ROW, COL)) 

1179 ;TXT DRAW/UNDRAW CURSOR 

1 1 7C. . G ET CURSOR 

Nit dieser Routine kann die monentane Cursorposition ermittelt werden. 
Beim Verlassen von TXT GET CURSOR enthalt H der Wert für die Spalte und 
L den Wert für die Zeile. Darüber hinaus enthält der Akku LFD. ROLL 
COUNT (Scrolling-Zähler). 

117C ;(LFD. CURSOR POSITION (ROW, COL)) 

117F ;LFD. FENSTER OBEN, LINKS - HL 

1182 ;(LFD. ROLL COUNT) 

1185 ;FERTIG 

1186 . LFD. FENSTER OBEN, LINKS + HL 

Diese Routine verwandelt eine relative in eine absolute Position. Sowohl 
beim Aufruf als auch beim Verlassen der Routine enthält H die Angabe für 
die Spalte und L die Angabe für die Zeile. 

1186 ;(LFD. FENSTER OBEN) 

1189 ;LFD. FENSTER OBEN - 1 ERGIBT OFFSET 

USA ;OFFSET + ZEILE 

1188 .'ERGIBT ABSOLUTE ZEILENPOSITION 
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11SC ;(LFD. FENSTER LINKS) 

118F ;LFD. FENSTER LINKS - 1 ERGIBT OFFSET 

1190 ;OFFSET + SPALTE 

1191 /ERGIBT ABSOLUTE SPALTENPOSITION 

1192 /ZURÜCK 

1193 . LFD. FENSTER OBEN, LINKS - HL 

Diese Routine verwandelt eine absolute in eine relative Position. Sowohl 
beim Aufruf als auch beim Verlassen der Routine enthält H die Angabe für 
die Spalte und L die Angabe für die Zeile. 

1193 /(LFD. FENSTER OBEN) 

1196 /LFD. FENSTER OBEN • ZEILE 

1197 /ZWEIERKOMPLEMENT BILDEN 

1198 ;ZUM INHALT DES AKKUMULATOR ZWEI 

1199 /HINZUADDIEREN 

119A /ERGIBT RELATIVE ZEILENPOSITION 

119B ;(LFD. FENSTER LINKS) 

119E /LFD. FENSTER LINKS - SPALTE 

119F /ZWEIERKOMPLEMENT BILDEN 

11A0 /ZUM INHALT DES AKKUMLATOR ZWEI 

11AI /HINZUADDIEREN 

11A2 /ERGIBT RELATIVE SPALTENPOSITION 

11A3 /ZURÜCK 

11A4 . CURSOR INVERTIEREN 

Vor dem Durchlaufen der Routine POSITION DES CURSORS ÜBERPRÜFEN wird 
hier mittels TXT DRAW/UNDRAW CURSOR der Cursor invertiert. 

11A4 /TXT DRAW/UNDRAW CURSOR 

11A7 . POSITION DES CURSORS ÜBERPRÜFEN 

Beim Verlassen von POSITION DES CURSORS ÜBERPRÜFEN steht im Registerpaar 
HL die Position des Cursors zu Verfügung (H=Spalte, L=Zeile). 
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11A7 
11AA 
11AD 
11 BO 
11 Bl 
11B2 
11B5 


11B6 
11B7 
11BS 
11B9 
11BA 
11BD 
11CO 
11C1 
11C4 
11C5 
ließ 
11C9 


;CLFD. CURSOR POSITION (ROW.COL)) 

;HL INNERHALB FENSTERGRENZEN 
/(LFD. CURSOR POSITION (ROW.COL)) 
;HL LAG IH ZULÄSSIGEN BEREICH 
;POSITION DES CURSORS AUF DEN STACK 
;LFD. ROLL COUNT 

;B HAT EINEN DER WERTE &00 ODER &FF 

;B=&00 HEISST NACH UNTEN SCROLLEN 

;B=&FF HEISST NACH OBEN SCROLLEN 

;A=&00 ODER A=&FE 

;A=&01 ODER A=&FF 

;LFD. ROLL COUNT HINZUADDIEREN 

.■NEUER ROLL COUNT 

;TXT GET WINDOW 

■v<LFD. PAPER) 

;LFD. PAPER UND CARRY SICHERN 
;SCR SW ROLL 

,"LFD. PAPER UND CARRY HOLEN 
;SCR HW ROLL 

/POSITION DES CURSORS VOM STACK 
/FERTIG 


.. . TXT VALIDATE 

TXT VALIDATE ermittelt, ob sich der Cursor innerhalb des Textfensters 
befindet. Sowohl beim Aufruf, als auch beim Verlassen dieser Routine, 
enthält das H-Register den Wert für die Spalte und das L-Register den 
Wert für die Zeile. Ist beim Verlassen von TXT VALTIDATE das CARRY-Flag 
gesetzt, so befindet sich der Cursor im zulässigen Bereich. Nicht 
gesetztes CARRY bedeutet Scrolling. 


11CA 
11 CD 
11 DO 
1101 
11D4 
11D5 


LFD. FENSTER OBEN, LINKS + HL 
HL INNERHALB FENSTERGRENZEN 
AKKU UND FLAGS SICHERN 
LFD. FENSTER OBEN, LINKS - HL 
AKKU UND FLAGS UIE GEWESEN 
ZURÜCK 
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11D6 . HL INNERHALB FENSTERGRENZEN 

Diese Routine bringt die im Registerpaar HL übergebene Spalten-/Zeilen- 
Position in die Fenstergrenzen und stellt die Position ebenfalls wieder 
in HL zur Verfügung. Ist beim Verlassen von HL INNERHALB FENSTERGRENZEN 
das Carry-Flag gesetzt, so ist kein Scrollen des Bildschirms notwendig, 
um die gegebene Position darzustellen. Ist CARRY nicht gesetzt und ent¬ 
hält das B-Register &FF, so muß nach oben gescrollt werden; enthält das 
B-Register &00, so muß nach unten gescrollt werden. 


11D6 

11D9 

I IDA 
11DD 
11EO 
11E1 
11E2 
11E5 
11E6 
11E7 
11EA 

II ED 
11EE 
11EF 
11F2 
11F3 
11F4 

11F7 
11FA 
11FB 
11 FC 
11 FD 
11 FE 
1200 
1201 


(TXT LFD. FENSTER RECHTS) 

SPALTE NICHT GRÖSSER ALS RECHTER RAND 

DANN SPRINGE 

(TXT LFD. FENSTER LINKS) 

WERT NACH H WEITERREICHEN 
ZEILE UM 1 ERHÖHEN 
(TXT LFD. FENSTER LINKS) 

LFD. FENSTER LINKS ERNIEDRIGEN 
SPALTE GRÖSSER AKKUMULATOR? 

DANN SPRINGE 

(TXT LFD. FENSTER RECHTS) 

WERT NACH H WEITERREICHEN 
ZEILE UM 1 ERNIEDRIGEN 
(TXT LFD. FENSTER OBEN) 

LFD. FENSTER OBEN ERNIEDRIGEN 
ZEILE KLEINER ODER GLEICH AKKU 
DAS DARF SO NICHT SEIN! KORREKTUR 
DURCHFÜHREN 

(TXT LFD. FENSTER UNTEN) 

ZEILE KLEINER ODER GLEICH AKKU 
CARRY SETZEN (KEIN SCROLLING) 

UNTER DIESER PRÄMISSE WAR'S DAS 
TXT LFD. FENSTER UNTEN WIRD ZEILE 
ES WIRD NACH OBEN GESCROLLT 
CARRY ZURÜCKSETZEN (SCROLLING) 

FERTIG 
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1202 . KORREKTUR DURCHFÜHREN 

1202 ;TXT LFD. FENSTER OBEN WIEDERHERSTELLEN 

1203 ;TXT LFD. FENSTER OBEN WIRD ZEILE 

1204 ;ES WIRD NACH UNTEN GESCROLLT 

1206 ; CARRY ZURÜCKSETZEN (SCROLLING) 

1207 ;FERTIG 

1208 .TXT WIN ENABLE 


Hier wird die Größe des aktuellen Textfensters festlegen. Vor dem Aufruf 
von TXT WIN ENABLE werden die Registerpaare HL und DE mit Werten für die 
Fenstergröße versorgt. H = linke Grenze, L = obere Grenze, D = rechte 
Grenze und E = untere Grenze. 


1208 

120B 

120C 

120F 

1210 

1211 

1214 

1215 

1216 
1218 

1219 
121A 
121B 
121E 
121F 

1220 

1223 

1224 

1225 

1227 

1228 

1229 
122C 

1230 


SCR CHAR LIMITS 
LINKE GRENZE NACH AKKUMULATOR 
BEREICHSÜBERSCHREITUNG SPLATE 
MANIPULIERTEN WERT NACH LINKE GRENZE 
RECHTE GRENZE NACH AKKUMULATOR 
BEREICHSÜBERSCHREITUNG SPLATE 
MANIPULIERTEN WERT NACH RECHTE GRENZE 
GRENZEN RECHTS LINKS IN ORDNUNG? 
VERTAUSCHEN ÜBERSPRINGEN 
LINKE GRENZE NACH RECHTE GRENZE 
RECHTE GRENZE NACH LINKE GRENZE 
OBERE GRENZE NACH AKKUMULATOR 
BEREICHSÜBERSCHREITUNG ZEILE 
MANIPULIERTER WERT NACH OBERE GRENZE 
UNTERE GRENZE NACH AKKUMULATOR 
BEREICHSÜBERSCHREITUNG ZEILE 
MANIPULIERTER WERT NACH UNTERE GRENZE 
GRENZEN OBEN UNTEN IN ORDNUNG 
VERTAUSCHEN ÜBERSPRINGEN 
08ERE GRENZE NACH UNTERE GRENZE 
UNTERE GRENZE NACH OBERE GRENZE 
LINKE GRENZE, OBERE GRENZE SCHREIBEN 
RECKTE GRENZE, UNTERE GRENZE SCHREIBEN 
LINKE GRENZE NACH AKKUMULATOR 
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1231 ;LINKE GRENZE 0R OBERE GRENZE 

1232 ;SW ROLL 

1234 ;RECHTE GRENZE NACH AKKUMULATOR 

1235 .-RECHTE GRENZE XOR GRÖSSTER ZULÄSSIGER 

.-WERT 

1236 ;SW ROLL 

1238 ;OBERE GRENZE NACH AKKUMULATOR 

1239 .-OBERE GRENZE XOR GRÖSSTER ZULÄSSIGER 

;UERT 

123A ;<TXT SCROLL FLAG) 

1230 ;AUF ZUR CURSORPOSITIONIERUNG 

1240 . BEREICHSÜBERSCHREITUNG SPALTE 


Für die Ein- und Ausgabe sind die Register A und B relevant. Im Akkumu¬ 
lator befindet sich sowohl bei der Ein- als auch bei der Ausgabe die 
Spaltengrenze eines Fensters; Das B-Register enthält den größten zuläs¬ 
sigen Wert für die Spaltengrenze. 


1240 ;SPALTENGRENZE GRÖSSER ODER GLEICH NULL 

1241 ,-UNTER DIESER PRÄMISSE SPRINGE 

1244 ;NULL FÜR SPALTENGRENZE 

1245 ;SPALTENGRENZE KLEINER GRÖSSTER 

.-ZULÄSSIGER WERT? 

1246 ,-TRIFFT ZU, DANN FERTIG 

1247 .-GRÖSSTER ZULÄSSIGER WERT WIRD 

;SPALTENGRENZE 

1248 ,-FERTIG 

1249 . BEREICHSÜBERSCHREITUNG ZEILE 


Für die Ein- und Ausgabe sind die Register A und C relevant. Im Akkunu- 
lator befindet sich sowohl bei der Ein- als auch bei der Ausgabe die 
Zeilengrenze eines Fensters; Das C-Register enthält den größten zulässi¬ 
gen Wert für die Zeilengrenze. 


1249 

124A 


.•ZEILENGRENZE GRÖSSER ODER GLEICH NULL 
.-UNTER DIESER PRÄMISSE SPRINGE 
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124D /NULL FÜR ZEILENGREHZE 

124E ;ZEILENGRENZE KLEINER GRÖSSTER 

/ZULÄSSIGER WERT 

124F /TRIFFT ZU, DANN FERTIG 

1250 /GRÖSSTER ZULÄSSIGER WERT WIRD 

/ZEILENGRENZE 

1251 /ZURÜCK 

1252 . TXT GET WINDOW 

TXT GET WINDOW gibt Antwort auf die Frage nach der Größe des aktuellen 
Textfensters. Beim Verlassen der Routine enthalten die Registerpaare HL 
und DE die Werte für die Fenstergröße. K = linke Grenze, L = obere 
Grenze, D = rechte Grenze und.E = untere Grenze. 

1252 /(TXT LFD. FENSTER OBEN) 

1255 /(TXT LFD. FENSTER OBEN) 

1259 /(TXT SCROLL FLAG) 

125C /CARRY GELÖSCHT FÜR HW-ROLL 

125E /DAS WAR'St 

125F....-.TXT DRAW/UNDRAW CURSOR 

Setzen/Löschen des Cursors. 

125F /(TXT LFD. CURSOR FLAG) 

1262 /CURSOR NICHT ERLAUBT ODER VERRIEGELT 

1264 /DANN ZURÜCK 

1265 . TXT PLACE/REHOVE CURSOR 

Cursor auf den Bildschirm setzen/Cursor vom Bildschirm nehmen 

1265 /REGISTERPAAR BC SICHERN 

1266 /REGISTERPAAR DE SICHERN 

1267 /REGISTERPAAR HL SICHERN 

1268 /POSITION DES CURSORS ÜBERPRÜFEN 
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126B ;(TXT LFD. PEN) 

;B=LFD. PAPER 
;C=LFD. PEN 

126F ;SCR CHAR INVERT 

1272 ;ALTEN INHALT VON HL 

1273 ;ALTEN INHALT VON OE 

1274 ;ALTEM INHALT VON BC 

1275 ;DAS WAR'S 

1276 .TXT CUR ON 

Cursor erlauben (Betriebssystem). 

1276 ;AKKU UND FLAGS AUF STACK SICHERN 

1277 ;BIT NUMMER 1 IST GELÖSCHT 

1279 ;CUR ENABLE CONT'O 

127C ;AKKU UND FLAGS VOM STACK HOLEN 

127D ;FERTIG 

127E . TXT CUR OFF 

Cursor verriegeln (Betriebssystem, höhere Priorität als TXT CUR ENABLE 
und TXT CUR DISABLE). 

127E ;AKKU UND FLAGS AUF STACK SICHERN 

127F ;BIT NUMMER 1 IST GESETZT 

1281 ;CUR DISABLE CONT'D 

1284 ;AKKU UND FLAGS VOM STACK HOLEN 

1285 ;FERTIG 

1286 . TXT CUR ENABLE 

Cursor erlauben (Anwenderprogramm). 


1286 


;BIT NUMMER 0 IST GELÖSCHT 
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1288 . CUR ENABLE CONT'D 

1288 ;AKKU UND FLAGS AUF STACK SICHERN 

1289 ;TXT DRAW/UNDRAW CURSOR 

128C ;AKKU UND FLAGS VOM STACK HOLEN 

128D ;REGISTERPAAR HL SICHERN 

128E ;TXT LFD. CURSOR FLAG 

1291 ,-BITMANIPLUATION 

1292 ;TXT LFD. CURSOR FLAG ZURÜCKSCHREIBEN 

1293 ;REGISTERPAAR HL HOLEN 

1294 ;TXT DRAW/UNDRAW CURSOR 

1297 .TXT CUR DISABLE 


Cursor verriegeln (Anwenderprogramm). 

1297 ;BIT NUMMER 0 SETZEN 


1299 .CUR DISABLE CONT'D 

1299 ;AKKU UND FLAGS AUF STACK SICHERN 

129A ;TXT DRAW/UNDRAU CURSOR 

1290 ;AKKU UND FLAGS VOM STACK 

129E ;REGISTERPAAR HL SICHERN 

129F ;TXT LFD. CURSOR FLAG 

12A2 ;BITMANIPULATION 

12A3 ;TXT LFD. CURSOR FLAG ZURÜCKSCHREIBEN 

12A4 ;WERT FÜR HL VOM STACK 

12A5 ;DAS WAR'S 

12A6.TXT SET PEN 


TXT SET PEN setzt die Vordergrundfarbe. Im Akkumulator wird der Wert für 
die Vordergrundfarbe an die Routine übergeben. 


12A6 

12A9 


;TXT LFD. PEN 
;ZUR DURCHFÜHRUNG 
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12AB 


TXT SET PAPER 


TXT SET PAPER setzt die Hintergrundfarbe. Im Akkumulator wird der Wert 
für die Hintergrundfarbe an die Routine übergeben. 


12AB iTXT LFD. PAPER 

12AE ;FARBWERT AUF DEM STACK SICHERN 

12AF ;TXT DRAW/UNDRAW CURSOR 

12B2 ;FARBWERT WIEDERHOLEN 

12B3 ;SCR INK ENCODE 

12B6 .-BERECHNETEN FARBWERT SETZEN 

12B7 ;TXT DRAW/UNDRAW CURSOR 

128A... TXT GET PEN 


TXT GET PEN ermittelt die Vordergrundfarbe, deren Nuimer beim Verlassen 
der Routine im Akku steht. 

12BA ;(TXT LFD. PEN) 

12BD ;SCR INK DECODE 


12C0 . TXT GET PAPER 

TXT GET PAPER ermittelt die Hintergrundfarbe, deren Nummer beim Verlas¬ 
sen der Routine im Akku steht. 

12C0 ;(TXT LFD. PAPER) 

12C3 ;SCR INK DECODE 


12C6.. TXT INVERSE 

Diese Routine vertauscht die aktuelle Vordergrundfarbe mit der aktuellen 
Hintergrundfarbe. 


12C6 


,-TXT DRAW/UNDRAW CURSOR 
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12C9 

;LFD. PAPER/LFD. PEN NACH 

12CC 

;PAPER NACH AKKU 

12CD 

;PEN NACH PAPER 

12CE 

;AKKU NACH PEN 

12CF 

.•VERTAUSCHTES PAPER/PEN 

12D2 

;TXT DRAU/UNDRAW CURSOR 


12D4...txt GET MATRIX 

Adresse des Punktmusters eines Zeichens holen. Im Akkumulator wird die 
Nummer des Zeichens an TXT GET MATRIX übergeben. Als Ergebnis könnt im 
HL-Register die Adresse der Punktmatrix zurück. 


1204 

1205 
12D6 
12D9 
12DB 
12DC 
12DD 
120E 
12DF 
12E1 
12E2 
12E4 
12E7 
12E8 


12E8 

12EC 

12E0 

12EE 

12EF 

12F0 

12F1 


DE-REGISTER BEREITHALTEN 

NUMMER DES ZEICHENS IN E BUFFERN 

TXT GET M TABUE 

SPRINGE, WENN KEINE MATRIX 

ERSTES ZEICHEN DER MATRIX NACH D 

GEBUFFERTES ZEICHEN ZURÜCK NACH A 

ERSTES ZEICHEN VON ZEICHEN SUBTRAHIEREN 

KOMPLEMENTIERE CARRY-FLAG 

SPRINGE, UENN ZEICHEN NICHT VORHANDEN 

NUMMER IN DER MATRIX 

ZUR BERECHNUNG DER ADRESSE 

HIER BEGINNT DER ZEICHENSATZ IM ROM 

AKKU UND FLAGS AUF STACK SICKERN 

D ZURÜCKSETZEN 

DE=BASISADRESSE ROM-ZEICHENSATZ H=&00 
UND L=NUMMER IN DER MATRIX 
2HL (ERGEBNIS IN HL) 

4ML (ERGEBNIS IN HL) 

8HL (ERGEBNIS IN HL) 

BASISADRESSE HINZUADDIEREN 
AKKU UND FLAGS VOM STACK HOLEN 
DE WIEDER HERSTELLEN 
FERTIG 
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12F 2.. TXT SET MATRIX 

TXT SET MATRIX bindet eine vom Benutzer definierte Zeichenmatrix in den 
Zeichensatz ein. Beim Aufruf von TXT SET MATRIX steht im Akkumulator die 
Nummer des Zeichens und im Registerpaar HL die Adresse der zugehörigen 
Zeichenmatrix. 


12F2 ;VOR DEM AUFRUF VON TXT GET MATRIX HL- 

;REGISTER FREISTELLEN 

12F3 ;TXT GET MATRIX 

12F6 .-ZURÜCK, WENN KEINE MATRIX 

12F7 ;DE IST ZIEL FÜR ZEICHENMATRIX HL IST 

;QUELLE 

12F8 .-ZÄHLER: ACHT BYTES KOPIEREN 

12FB ;KOPIERVORGANG DURCHFÜHREN 

12 FD ;DAS WAR'S 

’ZFE. TXT SET M TABLE 


Startadresse und erstes Zeichen einer vom Anwender definierten Punktma¬ 
trix setzen. Beim Aufruf der Routine TXT SET M TABLE steht im HL-Regi- 
ster der Pointer auf die vom Benutzer definierte Zeichen-Matrix. Enthält 
das D-Register den Wert Null, dann gibt es eine Benutzer-Matrix. Das E- 
Register enthält den Wert des ersten Zeichens. 

Beim Verlassen von TXT SET M TABLE ist das CARRY-Flag gesetzt, wenn eine 
alte Benutzer-Matrix vorhanden war. Im Registerpaar HL befindet sich die 
Adresse dieser alten Benutzer-Matrix und im Akkumulator ihr erstes Zei¬ 
chen. 

12FE 
12FF 

1300 

1301 
1303 

1305 

1306 

1307 


POINTER AUF MATRIX SICHERN 
D NACH A (FLAG) 

GIBT ES EINE BENUTZER-MATRIX? 
D-REGISTER WIRD &00 (KEINE MATRIX) 
SPRINGE, WENN KEINE MATRIX 
D-REGISTER WIRD &FF (MATRIX) 

D (FLAG) UND E (ERSTES ZEICHEN 
INNERHALB DER BENUTZER-MATRIX) SICHERN 
ERSTES ZEICHEN NACH C 
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1308 

1309 
130A 
130D 
130E 
130F 

1311 

1312 

1313 

1315 

1316 
1319 
131A 
131B 
131D 
131E 
1321 

1325 

1326 
132A 


POINTER AUF MATRIX NACH DE BRINGEN 

ERSTES ZEICHEN NACH AKKUMULATOR 

TXT GET MATRIX 

MSB MATRIX NACH AKKUMULATOR 

XOR MIT MSB POINTER AUF MATRIX 

QUELL- UND ZIELADRESSE SIND UNGLEICH 

ES KANN KOPIERT WERDEN! 

LSB MATRIX NACH AKKUMULATOR 

XOR MIT LSB POINTER AUF MATRIX 

QUELL- UND ZIELADRESSE SIND GLEICH 

BC-REGISTER ZUR VERFÜGUNG STELLEN 

ACHT BYTES MATRIX MIT LDIR KOPIEREN 

BC-REGISTER WIEDER ALTER WERT 

NÄCHSTES ZEICHEN 

SPRINGE SOLANGE ZEICHEN 

INHALT VON DE VOM STACK HOLEN 

TXT GET M TABLE 

(TXT 1. ZEICHEN USER MATRIX) 

ADRESSE DER BENUTZER-MATRIX 
(TXT ADR. USER MATRIX 
DAS WAR'S 


1328 . TXT GET M TABLE 

TXT GET M TABLE ermittelt die Startadresse und das erste Zeichen einer 
Anwendermatrix. Beim verlassen der Routine befindet sich im Akkumulator 
die Nummer des ersten Zeichens der Anwendermatrix und im Registerpaar HL 
die Adresse der Anwendermatrix. Des weiteren zeigt ein gesetztes CARRY- 
Flag das Vorhandensein einer Anwendermatrix an. 


132B 

;(TXT ERSTES ZEICHEN USER MATRIX) 

132E 

;MSB NACH AKKUMULATOR 

132F 

;CARRY BEEINFLUSSEN 

1330 

;LSB NACH AKKUMULATOR 

1331 

;(TXT ADR. USER MATRIX) 

1334 

;FERTIG 
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T- 5 - 55 ....... TXT WR CHAR 

Zeichen darstellen. Im Akku wird übergeben, welches Zeichen dargestellt 
werden soll. 


1335 

1336 

1339 
133A 
133B 
133C 
133F 

1340 

1343 

1344 

1345 
1348 


;DARZUSTELLENDES ZEICHEN NACH 8 
;(TXT LFD. CURSOR FLAG) 

;CARRY-FLAG BEEINFLUSSEN 
.-ZURÜCK, WENN CARRY GESETZT IST 
;ZEICHEN IN B AUF STACK SICHERN 
;CURSOR INVERTIEREN 
;1 ZU SPALTE FÜR CURSOR ADDIEREN 
;(TXT LFD. CURSOR POS. (ROW, COL)) 

,-ALTER WERT FÜR SPALTE CURSOR 
,-ZEICHEN VOM STACK NACH AKKUMULATOR 
;TXT WRITE CHAR 
;TXT DRAW/UNDRAW CURSOR 


134B 


TXT WRITE CHAR 


Ein Zeichen auf den Bildschirm schreiben. Um diese Aufgabe erfüllen zu 
können, benötigt die Routine die Angaben, welches Zeichen und an welche 
Position es geschrieben werden soll. Im Akkumulator wird die Nunwer des 
darzustellenden Zeichens übergeben. Im Registerpaar HL befindet sich die 
Position, an der das Zeichen ausgegeben werden soll (H=Spalte, L=Zeile). 


1348 

134C 

134F 

1352 

1353 

1356 

1357 

1358 
1358 
135D 
135E 
135F 
1360 


;ZEICHENPOSITION RETTEN 
;TXT GET MATRIX 

.-ADRESSE DER MATRIX (UNGEPACKT) 

,-DIESE AUF DEN STACK SICHERN 
;SCR UNPACK 

.-ADRESSE DER MATRIX (UNGEPACKT) 

;ZEICHENPOSITION HOLEN 

,-SCR CHAR POSITION 

;BELEGT ACHT RASTERZEILEN 

;INHALT VON BC (ZÄHLER) RETTEN 

,-INHALT VON HL RETTEN 

.-ZÄHLER EIN ZWEITES MAL RETTEN 

;ADRESSE DER MATRIX UNGEPACKT SICHERN 
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"1361 ;UND NACH HL TAUSCHEN 

1362 ;ADRESSIERTES BYTE AUS MATRIX HOLEN 

1363 ;VERZWEIGUNG 

1366 ;SCR NEXT BYTE 

1369 ;MATRIX BYTE HOLEN 

136A .-NÄCHSTES BYTE DER MATRIX 

136B ;ALTER INHALT VON BC (ZÄHLER) 

136C ;SOLANGE NOCH BYTES VORHANDEN 

136E .-ALTER INHALT VON HL' 

136F ;SCR NEXT LINE 

1372 ;ALTER INHALT VON BC (ZÄHLER) 

1373 • TEST AUF NULL 

1374 ,-WEITER WENN NOCH RASTERZEILEN 

1376 ;FERTIG 

1377 .VERZWEIGUNG 

1377 .-(TXT LFD. BACKGROUND MODE) 

137A ;IN DIE GEWÜNSCHTE ROUTINE VERZWEIGEN 

137B..TXT SET BACK 

TXT SET BACK ist für das Setzen des Transparentmodus zuständig. Wird 
dieser Routine im Akkumulator der Wert 0 übergeben, so wählt sie die 
herkömmliche Darstellungsweise des CPC (Transparentmodus aus). Wir hin¬ 
gegen im Akku eine 1 zur Verfügung gestellt, so schaltet die Routine den 
Transparentmodus ein. 

137B .-ADRESSE TRANSPARENTMODUS AUS 

137E .-MODUS FESTSTELLEN 

137F .-NORMALEINSTELLUNG SETZEN 

1331 .-ADRESSE TRANSPARENTMtJDUS EIN 

1384 ;(TXT LFD. BACKGROUND MODE) 

1387 ;DAS WAR'S 
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1388 .TXT GET BACK 

TXT GET BACK ermittelt welcher Transparentmodus gesetzt ist. Ist beim 
Verlassen der Routine das ZERO-Flag nicht gesetzt, so ist der Transpa¬ 
rentmodus ausgeschaltet; Ein gesetztes ZERO signalisiert eingeschalteten 
T ransparentmodus. 

1388 ;(TXT LFD. BACKGROUND MODE) 

138B ;HILFSSUMMAND NACH DE 

138E ,-HL KANN ENTHALTEN 8,1392 ODER &13A0 

;&1392+HILFSSUHMAND=&0000 
;&13A0+HILFSSUMMAND=8000E 

138F ;MSB NACH AKKUMULATOR 

1390 ;FLAGBEEIN FLUSSUNG: 

;ZERO=0 TRANSPARENTMODUS AUS 
;ZERO=1 TRANSPARENTMODUS EIN 

1391 ;DAS WAR'S 

1392 . TRANSPARENTMODUS AUS (NORMALEINSTELLUNG) 

Im DE-Register wird die BiIdschrimadresse an die Routine übergeben und 
in C steht das Byte der Zeichenmatrix. 

1392 ;L=TXT LFD. PEN H=TXT LFD. PAPER 

1395 ;A=BYTE DER ZEICHENMATRIX 

1396 ;NEGAT DER ZEICHENMATRIX ERSTELLEN 

1397 ;MIT PAPER-FARBE VERKNÜPFEN 

1398 ,-NEGAT-MASKE NACH B-REGISTER 

1399 ;BYT£ DER ZEICHENMATRIX HOLEN 

139A ;MIT PEN-FARBE EINFÄRBEN 

139B ;MIT NEGAT-MASKE (HINTERGRUNDFARBE) 

;VERKNÜPFEN 

139C ;ALLE BITS SETZEN UM AKKU IN SCR PIXELS 

;(FORCE MODE) NICHT ZU ZERSTÖREN 
139E ;AB HIER GLEICHE VERARBEITUNG 
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13A0 . TRANSPARENTMODUS EIN 

In Registerpaar DE wird die Bildschirmadresse an TRANSPARENTMODUS EIN 
übergeben. Im C-Register steht das Byte der Zeichenmatrix. 


13A0 ;(TXT LFD. PEN) 

13A3 ;TXT LFD. PEN NACH B-REGISTER 

13A4 .-TAUSCHE BILDSCHIRMADRESSE NACH HL 

13A5 ;SCR PIXELS (FORCE MODE) 

13A8. TXT SET GRAPHIC 


Diese Routine bestimmt ob die Ausgabe von Zeichen an der Position des 
Text- oder Grafikcursors erfolgen soll. Wird im Akkumulator eine Null an 
TXT SET GRAPHIC übergeben, so erfolgt die Ausgabe von Zeichen (uie 
üblich) an der Position des Text-Cursors. Wird etwas anderes als Null 
übergeben, so wird die Ausgabe an der Position des Grafik-Cursors erfol¬ 
gen (BASIC-Befehl TAG). 


13A8 ;(TXT GRAPH CHAR WRITE MODE (0=DIS.)> 

13AB ;FERTIG 

13AC. TXT RD CHAR 


TXT RD CHAR ließt ein Zeichen vom Bildschirm. Beim Verlassen befindet 
sich das Zeichen im Akkumulator. Wurde ein Blank gefunden, so ist das 
ZERO-Flag gesetzt. Ein gelöschtes CARRY-Flag zeigt an, daß kein Zeichen 
identifiziert werden konnte. 


13AC 

;HL-REGISTERPAAR BEREITSTELLEN 

13AD 

;DE-REGISTERPAAR BEREITSTELLEN 

13AE 

;BC-REGISTERPAAR BEREITSTELLEN 

13AF 

,-CURSOR INVERTIEREN 

13B2 

;TXT UNWRITE CHAR 

13B5 

.-ZEICHEN UND FLAGS AUF STACK 

13B6 

;TXT DRAU/UNDRAW CURSOR 

13B9 

;ZEICHEN UND FLAGS VOM STACK 

13BA 

;ALTEN ZUSTAND VON BC 
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13BB ,-ALTEN ZUSTAND VON DE 
13BC ;ALTEN ZUSTAND VON HL 
13BD ;DAS WAR'S 


13BE 


TXT UNWRITE CHAR 


Ein Zeichen vom Bildschirm lesen. Im Registerpaar HL wird die Position 
des Zeichen an TXT UNWRITE CKAR übergeben (H=Spalte, L=Zeile). Als 
Ergebnis liefert die Routine das gefundene Zeichen im Akkumulator. Ist 
das CARRY-Flag nicht gesetzt, so konnte das Zeichen nicht bestimmt wer¬ 
den. Ein gesetztes ZERO-Flag steht für ein gefundenes Leerzeichen. 


13BE 

13C1 

13C4 

13C5 

13C6 

13C9 

13CA 

13CB 

13CD 

13CE 

13CF 

13D0 

13D1 

13D3 

13D6 

13D7 

13D8 

13DA 

13DB 

13DE 


(TXT LFD. PAPER) 

ADRESSE DER MATRIX 
ZEICHEN-POSITION SICHERN 
ADRESSE DER MATRIX SICHERN 
SCR REPACK 

MATRIX-ADRESSE VOM STACK HOLEN 

UND SOFORT WIEDER SICHERN 

ANZAHL DER RASTERZEILEN NACH B 

MATRIX-BYTE HOLEN 

KOMPLEMENT BILDEN 

KOMPLEMENT ZURÜCKSCHREIBEN 

AUF NÄCHSTES 8YTE ZEIGEN 

SPRINGE SOLANGE NOCH RASTERZEILEN 

VERGLEICHE MATRIX 

MATRIX-ADRESSE VOM STACK HOLEN 

ZEICHEN-POSITION VOM STACK HOLEN 

SPRINGE, WENN KEIN ZEICHEN GEFUNDEN 

ZURÜCK, WENN ETWAS ANDERES ALS 

LEERZEICHEN GEFUNDEN 

(TXT LFD. PEN) 

SCR REPACK 
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13E1 . VERGLEICHE MATRIX 


Als Ergebnis liefert die Routine das Zeichen im Akkumulator. Ist das 
CARRY-Flag nicht gesetzt, so konnte das Zeichen nicht identiviziert wer¬ 
den. Ein gesetztes ZERO-Flag steht für ein Leerzeichen. 


13E1 ;ZÄHLER INITIALISIEREN 

13E3 ;ZÄHLERSTAND NACH AKKUMULATOR 

13E4 ;TXT GET MATRIX 

13E7 .-ADRESSE DER MATRIX 

13EA ,-ANZAHL DER RASTERZEILEN NACH B 

13EC ;MATRIX-BYTE HOLEN 

13ED .-VERGLEICHE MIT VORGEGEBENEM BYTE 

13EE .-SPRINGE WENN UNGLEICH 

13F0 ;AUF NÄCHSTES BYTE 

13F1 . ;AUF NÄCHSTES ZU VERGLEICHENDES BYTE 

13F2 ;SPRINGE SOLANGE NOCH RASTERZEILEN 

13F4 ,-NUMMER DES ZEICHENS NACH AKKU 

13F5 .-LEERZEICHEN GEFUNDEN <ZERO=1) 

13F7 ;CARRY=1 FÜR SUCHE ERFOLGREICH 

13F8 ;FERTIG 

13F9 .-NÄCHSTES ZEICHEN 

13FA .-SPRINGE SOLANGE ZEICHEN 

13FC ;CARRY=0 FÜR SUCHE ERFOLGLOS 

13FD .-FERTIG 

13FE.TXT OUTPUT 


(Steuer-) Zeichen darstellen oder ausführen. 


Bringt das Zeichen in Akku auf das aktuelle Bildschirmfenster, bzw. 
führt es aus, falls es sich um ein Steuerzeichen handelt. 

Beachten Sie, daB diese Routine die Indirection TXT OUT ACTION benutzt. 
Sollten Sie diese manipuliert haben, wird TXT OUTPUT auch Ihre Routine, 
statt der im ROM stehenden, benutzen. 


13FE 

13FF 


;REGISTERPAAR AF SICHERN 
;REGISTERPAAR BC SICHERN 
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1400 

;REGISTERPAAR DE SICHERN 

1401 

;REGISTERPAAR HL SICHERN 

1402 

;TXT OUT ACTION 

1405 

;ALTEN INHALT VON HL HOLEN 

1406 

;ALTEN INHALT VON DE HOLEN 

1407 

;ALTEN INHALT VON BC HOLEN 

1408 

;ALTEN INHALT VON AF HOLEN 

1409 

;ZURÜCK 


140A. TXT OUT ACT ION 

Ausgabe eines Zeichens auf dem Bildschirm oder Ausführung eines Steuer¬ 
codes. Im Akkumulator wird die Nummer des Zeichens an die Routine über¬ 
geben. 


140A 

HOB 

140E 

HOF 

1410 

1413 

1416 

1417 

1418 
141A 
141C 
141D 
141F 
1420 
1422 

1425 

1426 

1427 

1428 
142A 
142B 
1420 
142F 


NUMMER DES ZEICHENS NACH C RETTEN 
<TXT GRAPH CHAR WRITE MODE) 

ZERO-FLAG BEEINFLUSSEN 
NUMMER DES ZEICHENS IN AKKU 
GR WRITE CHAR 

(TXT ZEICHENZÄHLER CONTROL BUFFER) 
ZÄHLERINHALT NACH B-REGISTER 
ZÄHLERINHALT NACH AKKUMULATOR 
VERGLEICHE MIT MAX. LÄNGE 
CONTROL BUFFER LÖSCHEN 
GIBT ES ZEICHEN IM CONTROL BUFFER? 
SPRINGE UNTER DIESER PRÄMISSE 
NUMMER DES ZEICHENS NACH AKKU 
HANDELT ES SICH UM STEUERZEICHEN? 
KEIN STEUERZEICHEN, DANN TXT WR CHAR 
ZÄHLER=ZÄHLER+1 

(TXT ZEICHENZÄHLER CONTROL BUFFER) 
ZÄHLERSTAND NACH E 8RINGEN 
ZU DOPPELREGISTER AUFSTOCKEN 
BASISADRESSE+ZÄHLERSTAND 
ZEICHEN AN DIESER STELLE SICHERN 
(POINTER CONTROL BUFFER) 
ENTSPRECHENDES STEUERZEICHEN NACH E 


1430 


ADRESSE SPRUNGTABELLE STEUERZEICHEN 
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1433 

1434 

1435 

1436 

1437 

1439 
143A 

1438 
143E 
143F 

1440 

1442 

1443 

1444 

1445 

1446 
1449 
144A 
144D 
144E 
1451 


:ADRESSE=ADRESSE+ZÄHLERSTAND 

'♦ZÄHLERSTAND 

♦ZÄHLERSTAND 

BYTE AN ERMITTELTER STELLE NACH AKKU 
BITS 4 BIS 7 AUSBLENDEN 
VERGLEICHE MIT ZÄHLERSTAND 
MEHR ZEICHEN! 

(TXT CURSOR FLAG) 

AND MIT BYTE AN ERMITTELTER STELLE 

BIT 7 NACH CARRY-FLAG 

CONTROL BUFFER LÖSCHEN 

AUF LSB FÜR CALL-ADRESSE 

LSB FÜR CALL-ADRESSE 

AUF MSB FÜR CALL-ADRESSE 

MSB FÜR CALL-ADRESSE 

POINTER CONTROL BUFFER 

ZEICHEN NACH AKKUMULATOR 

BEDEUTET SOVIEL WIE: CALL (DE) 

AKKU LÖSCHEN UND FLAG ZURÜCKSETZEN 
(TXT ZEICHENZÄHLER CONTROL BUFFER) 
FERTIG 


1452 


TXT VDU DISABLE 


Zeichendarstellung unterbinden. 

1^52 ;BIT 7 UND BIT 0 WIRD GESETZT 

1454 ;CUR DISABLE CONT'D 

1457 .-WEITER BITTE 


1459 


TXT VDU ENABLE 


Es können Zeichen auf den Bildschirm geschrieben werden. 


1459 

145B 

145E 


;BIT 1 BIS BIT 6 WIRD GESETZT 
;CUR ENABLE CONT'D 
.-FORTSETZUNG FOLGT 
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1460 . LFD. CURSOR FLAG NACH AKKU 

1460 /(TXT LFD. CURSOR FLAG) 

1463 /SCHON FERTIG 

1464 . DEFAULT STEUERZEICHEN SPRÜNGE KOPIEREN 

1464 /AKKU LÖSCHEN UND FLAGS ZURÜCKSETZEN 

1465 /(ZEICHENZAHLER CONTROL BUFFER) 

1468 /QUELLE: DEFAULT STEUERZEICHEN SPRÜNGE 

146B /ZIEL: SPRUNGTABELLE STEUERZEICHEN 

146E /ZÄHLER: ANZAHL ZU KOPIERENDE BYTES 

1471 /KOPIERVORGANG AUSFÜHREN 

1473 /FERTIG 

1474 . DEFAULT STEUERZEICHEN SPRÜNGE 

1474 &80 

1475 /00 KEIN EINFLUSS (CHR$(0>> 

1477 &81 

1478 /Ol TXT WR CHAR CCHRS(D) 

147A &80 

147B /02 TXT CUR DISABLE <CHRS(2)) 

147D &80 

147E /03 TXT CUR ENABLE <CHR$(3)) 

1480 &81 

1481 /04 SCR SET MODE <CHR$(4» 

1483 &81 

1484 /05 GRA WR CHAR <CHR$<5)> 

1486 &00 

1487 /06 TXT VDU ENABLE (CHRS<6)) 
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1489 

148A 


&80 

;07 KLINGEL (CHR$(7)) 


148C 

1480 


&80 

;08 CRSR LEFT <CHR$(8)) 


148F 

1490 


&80 

;09 CRSR RIGHT (CHR$(9)> 


1492 

1493 


&80 

;0A CRSR DOWN (CHR$(10)) 


1495 

1496 


&80 

;0B CRSR UP <CHR$(11» 


1498 

1499 


&80 

;0C TXT CLEAR WINDOW (CHR${12)) 


149B 

149C 


&80 

;0D CRSR AUF ZEILENANFANG (CHR$(13)> 


149E 

149F 


&81 

;0E TXT SET PAPER <CHR${14)) 


14A1 

14A2 


&81 

;OF TXT SET PEN (CHRSC15)) 


14A4 

14A5 


&80 

;10 ZEICHEN AUF CURSORPOSITION LÖSCHEN 
;(CHR$(16)) 


14A7 

14A8 


&80 

;11 ZEILE BIS CURSORPOSITION LÖSCHEN 
;(CHR$(17)> 


14AA 

HAB 


&80 

;12 ZEILE AB CURSORPOSITION LÖSCHEN 
;(CHR$(18)) 



438 


Das große Grafikbuch zum C.PC 


14 AD 
14AE 


&80 

;13 FENSTER BIS CURSORPOSITION LÖSCHEN 
;CCHR$(19)> 


14B0 

14B1 


&80 

;14 FENSTER AB CURSORPOSITION LÖSCHEN 
;2(CHR$<20>) 


14B3 

&80 

14B4 

; 15 

14B6 

&81 

14B7 

;16 

14B9 

&81 

14BA 


14BC 

&80 

14BD 

;18 

14BF 

&89 

14C0 

;19 


TXT VDU DISABLE (CHR$(21)) 

TRANSPARENTMOOUS EIN/AUS (CHR$(22)) 

SCR ACCESS (CHR$<23)> 

TXT INVERSE <CHR$(24>) 

SYHBOL-BEFEHL (CHR$(25>) 


14C2 

14C3 


£84 

;1A FENSTER DEFINIEREN (CHR$(26)) 


14C5 

14C6 


&00 

;1B KEIN EFFEKT <CHRS(27)) 


14C8 

14C9 


&83 

;1C INK-BEFEHL (CHR$(28)) 


14CB 

14CC 


&82 

;1D BORDER-BEFEHL (CHR$(29)> 


14CE &80 

14CF ;1E CRSR HOHE <CHRS(30)) 


14D1 

14D2 


&82 

;1F LOCATE-BEFEHL (CHRSC31)) 
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1404 . TXT GET CONTROLS 

TXT GET CONTROLS holt die Adresse der Steuerzeichen-Sprungtabeile. Diese 
Adresse befindet sich beim Verlassen der Routine im Registerpaar HL. 

;TXT SPRUNGTABELLE STEUERZEICHEN 

1407 ;ZURÜCK 

1408 . PARAMETERTABELLE FÜR KLINGEL (CHR$<7>) 

1408 87 00 00 5A 00 00 OB 14 

14E0 00 

. KLINGEL (CHR$<7>> 

Die Routine KLINGEL zeichnet für die Erzeugung des Tones CHR$(7) verant¬ 
wortlich. 

14E1 ;IX-REGISTER SICHERN 

14E3 ;POINTER AUF PARAMETERTABELLE 

14E6 ;SOUND QUEUE 

14E9 ;ALTEN ZUSTAND VON IX HOLEN 

14EB ;DAS UAR'S 

1 4EC . TRANSPARENTMODE EIN/AUS <CHR$(22>) 

14EC ;PARAMETER NACH CARRY ROTIEREN 

14ED ;AKKU WIRD &00 OOER &FF 

14EE ;TXT SET BACK 

14F1 . INK-BEFEHL (CHR$(28)) 


14F1 

14F2 


;ZEIGER AUF ERSTEN PARAMETER 
;Nummer des Farbstifts 
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«F3 ;ZEIGER AUF ZWEITEN PARAMETER 

«F4 ;Parameter erster Farbwert 

«F5 ;ZEIGER AUF DRITTEN PARAMETER 

«F6 ;Parameter zweiter Farbwert 

«F7 ;SCR SET INK 

«FA.BORDER-BEFEHL (CHR$<29)) 

«FA ;ZEIGER AUF ERSTEN PARAMETER 

«FB .-PARAMETER ERSTER FARBWERT 

«FC ;ZEIGER AUF ZWEITEN PARAMETER 

«FD .-PARAMETER ZWEITER FARBWERT 

«FE ;SCR SET BORDER 

1501 . FENSTER DEFINIEREN (CHR$(26>> 

«01 ;ZEIGER AUF ERSTEN PARAMETER 

1502 ;FENSTERGRENZE RECHTS/LINKS 

1503 ;ZEIGER AUF ZWEITEN PARAMETER 

1504 ;FENSTERGRENZE RECHTS/LINKS 

1505 ;ZEIGER AUF DRITTEN PARAMETER 

1506 FENSTERGRENZE OBEN/UNTEN 

1507 ,-ZEIGER AUF VIERTEN PARAMETER 

1508 ;FENSTERGRENZE OBEN/UNTEN 

1509 ;FENSTERGRENZE RECHTS/LINKS 

150A ;TXT WIN ENABLE 

I 500 . SYMBOL-BEFEHL <CHR$(25>> 

150D ;HL ZEIGT AUF NUMMER DES ZEICHENS 

150E ;NUMMER DES ZEICHENS NACH AKKU 

150F ;HL ZEIGT AUF MATRIX-ADRESSE 

1510 ;TXT SET MATRIX 
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. . CHR$(0) 

1513 ;CURSOR INVERTIEREN 

1516 ;TXT DRAW/UNDRAW CURSOR 


1519 ..CRSR LEFT <CHR$(8)) 

1519 .-KENNUNG FÜR SPALTE ERNIEDRIGEN 

151c ;ES GEHT WEITER 


. ..CRSR RIGHT (CHR$(9>) 

151E ;KENNUNG FÜR SPALTE ERHÖHEN 

1521 ;HIER GEHT'S WEITER 


1523 .. CRSR DOWN (CHR$(10)) 

1523 .-KENNUNG FÜR ZEILE ERHÖHEN 

1526 ,-HIER GEHT'S WEITER 


1528 .CRSR UP (CHRSCII)) 

1528 ,-KENNUNG FÜR ZEILE ERNIEDRIGEN 

1528 ;KENNUNG AUF DEN STACK SICHERN 

152c ;CURSOR INVERTIEREN 

152f ;KENNUNG VOM STACK HOLEN 

1530 .‘CURSORPOSITION ZEILE 

1531 ;KENNUNG ZEILE ADDIEREN 

1532 .-NEUE CURSORPOSITION (ROW) 

1533 ;CURSORPOSITION SPALTE 

1534 .-KENNUNG SPALTE ADDIEREN 

1535 ,-NEUE CURSORPOSITION (COL) 

1536 .-NEUE CURSORPOSITION WEGSCHREIBEN, DANN 

,-TXT DRAW/UNDRAW CURSOR 
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1539 . CRSR HOHE (CHR$(30)) 

1539 ;(TXT LFD. FENSTER OBEN) 

153C ;AUF ZUR CURSORPOSITIONIERUNG 

153F . CRSR AUF ZEILENANFANG (CHR$(13)) 

153F ;CURSOR INVERTIEREN 

1542 ;(TXT LFD. FENSTER LINKS) 

1545 ;DORT GEHT ES WEITER 

1547 . LOCATE-BEFEHL (CHR$(31)) 

1547 ;POINTER AUF CURSORSPALTE 

1548 ;CURSORPOSITION SPALTE 

1549 ;POINTER AUF CURSORZEILE 

154A ;CURSORPOSIT ION ZEILE 

1548 ;IN DE ZUSAMHENGESTELLTE POSITION NACH 

;HL TAUSCHEN 

154C ;TXT SET CURSOR 

154F .>. TXT CLEAR WINDOW (CHR$(12)) 

154F ;TXT DRAW/UNDRAW CURSOR 

1552 ;H=TXT LFD. FENSTER LINKS 

;L=TXT LFD. FENSTER OBEN 

1555 ;(TXT LFD. CURSORPOS. (ROW, COL)) 

1558 ;D=TXT LFD. FENSTER RECHTS 

;E=TXT LFD. FENSTER UNTEN 

155C ;2UR DURCHFÜHRUNG 

155E.-. ZEICHEN AUF C-POS LÖSCHEN (CHR$(16)) 


155E 

1561 


/CURSOR INVERTIEREN 
/CURSORPOSITION SPALTE NACH D 










CPC-Maschinennroerammierune 


443 


1562 ;CURSORPOSITION ZEILE NACH E 

1563 ;ZUR DURCHFÜHRUNG 

1565 . FENSTER AB C-POS LÖSCHEN (CHR$(20)) 

1565 ;ZEILE AB CURSORPOSITIO« LÖSCHEN 

1568 ;H=TXT LFD. FENSTER LINKS 

;L=TXT LFD. FENSTER OBEN 

156B ;D-TXT LFD. FENSTER RECHTS 

;E=TXT LFD. FENSTER UNTEN 

156F ;LFD. CURSORPOSITION NACH AKKU 

1572 ;CURSORZEILE NACH L BRINGEN 

1573 ;W!RO STARTZEILE 

1574 ;STARTZEILE KLEINER FENSTER UNTEN 

1575 ;ZURÜCK UNTER DIESER PRÄMISSE 

1576 ;HIER GEHT'S WEITER 

1578 . FENSTER BIS C-POS LÖSCHEN (CHRSC19)) 

1578 ;ZEILE BIS CURSORPOSITION LÖSCHEN 

157B ;(TXT LFD. FENSTER OBEN) 

157E ;(TXT LFD. FENSTER RECHTS) 

1581 ;FENSTERGRENZE RECHTS NACH AKKU 

1582 ;(TXT LFD. CURSOR POS. (ROW.COL)) 

1585 ;CURSORPOSITION <ROU) -1 

1586 ;WIRD ENDPOSITION 

1587 ;START KLEINER ODER GLEICH ENDPOSITION? 

1588 ;UNTER DIESER PRÄMISSE ZURÜCK 

1589 ;(TXT LFD. PAPER) 

158C ;SCR FILL BOX 

158F . ZEILE AB C-POS LÖSCHEN (CKR$(18)) 

2 

158F .-CURSOR INVERTIEREN 

1592 ;CURSORPOSITION (ROW) ALS ZEILE 

1593 ;(TXT LFD. FENSTER RECHTS) 
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1596 /RECHTE FENSTERGRENZE NACH D 

1597 ;ZUR WEITERFÜHRUNG 

1599 . ZEILE BIS C-POS LÖSCHEN (CKR$<17)) 

1599 /CURSOR INVERTIEREN 

159C /CURSORPOSITION NACH DE BRINGEN 

159D /CURSORPOSITION (ROW) ALS ZEILE 

159E /(TXT LFD. FENSTER LINKS) 

15A1 /LINKE FENSTERGRENZE 

15A2 /DORT GEHT ES WEITER 

15A5 /TXT DRAU/UNDRAU CURSOR 
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9.6.4 Graphics Screen (GRA) 

Dieses Pack dient ausschließlich der Handhabung des Graphik¬ 
fensters. 

Zu den Koordinatenangaben, die von den verschiedenen Routi¬ 
nen verlangt werden, ist folgendes zu bemerken: 

Die Koordinaten werden in drei Stufen' übersetzt. Die 
anwendernächste Stufe ist die Position bezüglich des von ihm 
gesetzten Koordinatenursprungs (ORIGIN). Diese wird umge¬ 
rechnet in eine Position relativ zum Bildschirmursprung (unten 
links). Diese beiden Stufen sind vom Mode unabhängig! 

Die letzte Stufe ist die physikalische Adresse des Punktes. Diese 
ist abhängig vom aktuellen Modus! 

Diesen drei Stufen wird dann noch eine vierte Stufe vorange¬ 
stellt, wenn ein relatives Koordinatenpaar in eine absolute Posi¬ 
tion, relativ zu ORIGIN, umgerechnet werden muß. 


15A8.GRA INITIALISE 

Vollständige Initialisierung des Grafikpacks. 


15A8 

;GRA RESET 

15 AB 

;PEN 1, PAPER 0 

15AE 

;MSB NACH AKKU 

15AF 

;GRA SET PAPER 

15B2 

;LSB NACH AKKU 

15B3 

;GRA SET PEN 

15B6 

;ORIGIN AUF 0,0 SETZEN 

15B9 

;MSB NACH O-REGISTER 

15BA 

;LSB NACH E-REGISTER * 

15BB 

;GRA SET ORIGIN 

15BE 

.-KLEINSTEN UERT NACH DE 

15C1 

;GRÖSSTEN UERT NACH HL 

15C4 

;GRÖSSTEN WERT AUF STACK 

15C5 

;KLEINSTEN WERT AUF STACK 

15C6 

;GRA WIN WIDTH 
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15C9 ;ALTE INHALTE VOM 

15CA ;STACK HOLEN 

15CB ;GRA WIN HEIGHT 

15DE.DECODE PEN AND PAPER 

Als Ausgabe liefert diese Routine den Wert für den Hintergrund im H- 
Register und den Wert für den Vordergrund im L-Register. 

15CE ;GRA GET PAPER 

15D1 /FARBSTIFT FÜR HINTERGRUND NACH H 

15D2 ;GRA GET PEN 

15D5 /FARBSTIFT FÜR VORDERGRUND NACH L 

15D6 /FERTIG! 

15D7. GRA RESET 

Zurücksetzen des Grafikpacks und kopieren der Indirections. 

15D7 /INITIALISE 

15DA /RESTORE GRA INDIRECTIONS 

15DD ,-MOVE (HL+3) NACH ((HL+1T), CNT=(HL) 

15E0 /9 BYTES 

15E1 /ZIELADRESSE 

15E3 /COOE FÜR JP 

15E4 /GRA PLOT 

15E6 /CODE FÜR JP 

15E7 /GRA TEST 

15E9 /CODE FÜR JP 

15EA /GRA LINE 

15EC . GRA EXTENDED INITIALISE 

15EC /FORCE MOOE EINSCHALTEN 
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15ED ,‘SCR ACCESS 

15F0 ;FORCE MOOE EINSCHALTEN 

15F1 ;GRA FILL 

1 5 F4 .-PARAMETER FÜR ERSTEN PUNKT GENERIEREN 

15F5 ;GRA FIRST POINT 

15 FS ;GRA SET MASK 

15FB.*- GRA MOVE RELATIVE 


Bewegung zu einer relativen Position. 

15FB ;ADD LFD KOORD. + REL KOORD. 


15FE.GRA MOVE ABSOLUTE 

Bewegung zu einer absoluten Position. 

15FE ;<LFD X-KOORDINATE) 

1602 ;<LFD Y-KOORDINATE) 

1605 .-ERLEDIGT! 

1606 . GRA ASK CURSOR 


Wo ist der lfd. Grafikcursor? Als Ausgabeparameter liefert GRA ASK CUR¬ 
SOR im HL-Register die Y-Koordinate und im DE-Register die X-Koordinate 
des Grafikcursors. 


1606 ;(LFD X-KOORDINATE) 

160A ;(LFD Y-KOORDINATE) 

160D ;DAS WAR'S 

160E. GRA SET ORIGIN 


Ursprung der Anwenderkoordinaten setzen. Als Eingabeparameter erwartet 
die Routine im HL-Register die Y-Koordinate und im DE-Register die X- 
Koodinate. 
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160E ;(X ORIGIN) 

1612 ;{Y ORIGIN) 

1615 ;DE-REGISTER INITIALISIEREN 

1618 ;HL-REGISTER 

1619 ;INITIALISIEREN 

161A ;GRA MOVE ABSOLUTE 

161C. GRA GET ORIGIN 

Ursprung der Anwenderkoordinaten holen. Als Ausgabeparameter liefert die 
Routine im HL-Register die Y-Koordinate und im DE-Register die X-Koodi- 
nate. 

161C ;(X ORIGIN) 

1620 ;(Y ORIGIN) 

1623 ;DAS WAR'S SCHON! 

1624 . PHYS STARTPOSITION HOLEN 

1624 ;GRA ASK CURSOR 

1627 . PHYS ZIELPOS. HOLEN UND CURSOR SETZEN 

1627 ;GRA MOVE ABSOLUTE 

162A. GRA CONVERT POS 

162A ;Y-KOORDINATE AUF STACK RETTEN 

1628 ;SCR GET MODE 

162E ;MOOE DEFINIEREN 

1630 ;MASKE GENERIEREN 

1632 ;H-REGISTER INITIALISIEREN 

1634 ;MASKE NACH L-REGl STER 

1635 ;BIT SIEBEN GESETZT? 

1637 .-SPRINGE UNTER DIESER PRÄMISSE 













166A 


XPOS IM FENSTER? 


Als Eingabeparameter erwartet die Routine in OE-Register eine X-Koordi- 
nate. Ein bei der Ausgabe gesetztes CARRY-Flag zeigt an, daß die Koordi¬ 
nate sich innerhalb der Fenstergrenzen befindet. Ist das CARRY nicht 
gesetzt, so zeigt ein gesetztes ZERO und eine 0 im Akkumulator an, das 
die X-Koordinate kleiner als die Fenstergrenze ist. Ist das ZERO nicht 
gesetzt und enthält der Akku &FF, so ist die Koordinate größer als die 
Fenstergrenze. 


166A ;(X-KOORDINATE GRA FENSTER LINKS) 

166D ;CARRY FÜR SBC SETZEN 

166E .‘LINKE FENSTERGRENZE - X-KOORD. (CARRY) 

1670 ;UNTER DIESER VORAUSSETZUNG SPRINGE 

1673 ;(X-KOORD1NATE GRA FENSTER RECHTS) 

1676 ;CARRY FÜR SBC ZURÜCKSETZEN 

1677 ;RECHTE FENSTERGRENZE - X-KOORD. 

1679 ;KOORDINATE IM FENSTER 

167A ;BEDINGTER RÜCKSPRUNG 

167B .-KOORDINATE GRÖSSER ALS FENSTERGRENZE 

167D ;RÜCKSPRUNG 

167E .-KOORDINATE KLEINER ALS FENSTERGRENZE 

167F ;RÜCKSPRUNG 

1680 . YPOS IM FENSTER? 


Als Eingabeparameter erwartet die Routine im HL-Register eine Y-Koordi- 
nate. Ein bei der Ausgabe gesetztes CARRY-Flag zeigt an, daß die Koordi¬ 
nate sich innerhalb der Fenstergrenzen befindet. Ist das CARRY nicht 
gesetzt, so zeigt ein gesetztes ZERO und eine 0 im Akkumulator an, das 
die X-Koordinate kleiner als die Fenstergrenze ist. Ist das ZERO nicht 
gesetzt und enthält der Akku &FF, so ist die Koordinate größer als die 
Fenstergrenze. 

1680 ;(Y-KOORDINATE GRA FENSTER OBEN) 

1683 ;CARRY FÜR SBC ZURÜCKSETZEN 

1684 ;FENSTERGRENZE - Y-KOORD1NATE 

1686 ;SPRINGE, WENN Y-KOORD. GRÖSSER 

1689 ;(Y-KOORDINATE GRA FENSTER UNTEN) 
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168C ;CARRY FÜR SBC SETZEN 

168D .-UNTERE FENSTERGRENZE - Y-KOORD. (CARRY) 

168F .-UNTER DIESER BEDINGUNG SPRINGE 

1692 ;KOORDINATE IM FENSTER 

1693 .-ERLEDIGT! 

1694 . POS IN WINDOW 

Als Eingabeparameter erwartet POS IN WINDOW eine Y-Koordinate im HL- 
Register und eine X-Koordinate im DE-Register. Ein bei der Ausgabe 
gesetztes CARRY zeigt an, daß sich die Koordinaten innerhalb der Fen¬ 
stergrenzen befinden. 

1694 ;PHYS ZIELPOS HOLEN UND CURSOR SETZEN 

1697 ;Y-KOORDINATE AUF STACK 

1698 ;XPOS IM FENSTER? 

169B ;Y-KOORDINATE VOM STACK 

169C ;POSITION AUSSERHALB DES FENSTERS 

169D ;X-KOORDINATE AUF STACK 

169E .-REGISTER FÜR YPOS IM FENSTER? TAUSCHEN 

169F ;YPOS IM FENSTER? 

16A2 .-REGISTER ZURÜCKTAUSCHEN 

16A3 ,-X-KOORDIANTE VOM STACK 

16A4 ;DAS WAR'S 

16a5.GRA WIN WIDTH 

Linke und rechte Begrenzung des Grafikfensters setzen. Dazu muß sich im 
HL-Register die rechte, und im DE-Register die linke Fenstergrenze 
befinden. 

16A5 ;RECHTE FENSTERGRENZE RETTEN 

16A6 .-ALTE LINKE FENSTERGRENZE 

16A9 .-RECHTE FENSTERGRENZE HOLEN 

16AA .-LINKE FENSTERGRENZE RETTEN 

16AB ;ALTE RECHTE FENSTERGRENZE 

16AE .-LINKE FENSTERGRENZE HOLEN 

16AF ;INKE FENSTERGRENZE<RECHTE GRENZE 
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16B0 

;VERGL.16AF 

16B1 

;VERGL.16AF 

16B2 

;VERGL.16AF 

16B3 

;SPRINGE WENN KLEINER 

16B5 

;VERTAUSCHE GRENZEN 

16B6 

;LINKE GRENZE HOLEN 

16B7 

;UND MASKIEREN 

16B9 

.'ERGEBNIS NACH A 

16BA 

;RECHTE GRENZE HOLEN 

16BB 

;UND MASKIEREN 

16BD 

.-ERGEBNIS NACH A 

16BE 

;SCR GET MODE 

16C1 

.-MODE 0? 

16C2 

;SPLIT VALUE 

16C5 

;M00E 1? 

16C6 

;SPLIT VALUE 

16C9 

;(X-KOORDINATE GRA FENSTER LINKS) 

16CD 

;<X-KOORDINATE GRA FENSTER RECHTS) 

16D0 

;DAS WAR'S 

16D1 

;MSB LINKE FENSTERGRENZE NACH AKKU 

16D2 

;C'FLAG ELEMINIEREN 

1603 

;HL IN IT 

1606 

;NEGATIV? 

1607 

;GRÖSSTER WERT 

16DA 

;LSB LINKE FENSTERGRENZE NACH AKKU 

16DB 

.'REALE GRÖSSE ERMITTELN 

16DC 

,'HOLE MSB LINKE FENSTERGRENZE NACH AKKU 

160D 

:REALE GRÖSSE ERMITTELN 

160E 

;FERTIG, WENN KEIN ÜBERLAUF 

16DF 

.'WIEDER ALTER WERT SETZEN 

16E0 

; FERTIG! 


16E1 .SPLIT VALUE 

Die bei der Eingabe in den Registern HL und DE stehenden Werte stehen 
bei der Ausgabe halbiert in diesen Registern. 
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16E1 

/INHALT VON 

DE-REGISTER 

16E3 

/DURCH ZWEI 

TEILEN 

16E5 

/INHALT VON 

HL-REGISTER 

16E7 

/DURCH ZWEI 

TEILEN 

16E9 

/FERTIG! 



16EA. GRA WIN HEIGHT 


Obere und untere Begrenzung des Grafikfensters setzen. 


16EA 

/WERTE FÜR UNTERE FENSTERGRENZE RETTEN 

16EB 

/FENSTERGRENZE OK? 

16EE 

/HOLE UNTERE FENSTERGRENZE 

16EF 

/HL FREISTELLEN 

16F0 

/FENSTERGRENZE OK? 

16F3 

/UNTERE GRENZE HOLEN 

16F4 

/UNTERE GRENZE = OBERE GRENZE 

16F5 

/VERGL.16F4 

16F6 

/VERGL.16F4 

16F7 

/VERGL.16F4 

16FA 

/WERTE VERTAUSCHEN 

16FB 

/(Y-KOORDINATE GRA FENSTER OBEN) 

16FF 

/(Y-KOORDINATE GRA FENSTER UNTEN) 

1702 

/DAS WAR'S 


1703 . FENSTERGRENZE OK? 


Als Ein-/Ausgabeparameter hat FENSTERGRENZE OK? eine Fenstergrenze in Y- 
Ausdehnung. 


1703 

1704 

1705 

1708 

1709 
170B 
170D 

1710 


;MSB OBERE FENSTERGRENZE NACH AKKU 

;CARRY ZURÜCKSETZEN 

/KLEINSTE FENSTERGRENZE 

/UNTERE GRENZE WIRD &0000 GESETZT 

/FENSTERGRENZE DURCH ZWEI 

/DIVIDIEREN ERGIBT REALE GRENZE 

/GRÖSSTE FENSTERGRENZE 

/LSB REALE FENSTERGRENZE NACH AKKU 
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1711 ;LSB OK? 

1712 ,*msb reale fenstergrenze NACH AKKU 

1713 ;MSB OK? 

1714 ;GRÖSSTE FENSTERGRENZE 

1715 .-WIEDER ALTE FENSTERGRENZEN 

1716 ,-SCHON FERTIG! 

1717 . GRA GET U WIDTH 

Linke und rechte Begrenzung des Grafikfensters? Dazu muß sich im HL- 
Register die rechte, und im DE-Register die linke Fenstergrenze befin¬ 
den. 

1717 ;(X-KOORDINATE GRA FENSTER LINKS) 

171B ;CX-KOORDINATE GRA FENSTER RECHTS) 

171E ;SCR GET MODE 

1721 ;MOOE-1 

1722 ,-MODE 1? 

1725 ;MODE-1 

1726 ;MODE 0? 

1727 .-LINKE X-KOORDINATE * 2 

1728 ;+1 

1729 ;HL = RECHTE X-KOORDINATE 

172A .-RECHTE X-KOORDINATE * 2 

172B ;HL = LINKE X-KOORDINATE 

172C .-FERTIG! 

172D. GRA GET U HEIGHT 

Obere und untere Begrenzung des Grafikfensters? 

1720 ;(Y-KOORDINATE GRA FENSTER OBEN) 

1731 ;(Y-KOORDINATE GRA FENSTER UNTEN) 

1734 FORTSETZUNG FOLGT 
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1736 


GRA CLEAR WINDOW 


Grafikfenster löschen. 


1736 

1739 
173A 
173C 
173D 

1740 
1743 

1745 

1746 
174A 
174D 
174E 
174F 

1751 

1752 

1753 

1757 

1758 

1759 
175C 
175D 

1760 

1761 
1764 


GRA GET U UIDTH 

CARRY LÖSCHEN 

BREITE DES FENSTERS FÜR 

HL-REGISTER BERECHNEN 

WERT IN HL DURCH ZWEI TEILEN 

WERT IN HL DURCH ZWEI TEILEN 

LSB DURCH ZWEI TEILEN 

ERGEBNIS INS B-REGISTER 

(Y-KOORDINATE GRA FENSTER UNTEN) 

(Y-KOORDINATE GRA FENSTER OBEN) 

KOORDINATE AUF STACK RETTEN 

CARRY FÜR SBC ZURÜCKSETZEN 

FENSTERHÖHE FÜR 

HL-REGISTER ERRECHNEN 

LSB NACH C-REGISTER 

(X-KOORDINATE GRA FENSTER LINKS) 

Y-KOORDINATE OBEN 

INHALT VOM BC-REGISTER AUF STACK RETTEN 
SCR DOT POSITION 
DE-REGISTER VOM STACK FÜLLEN 
(GRA PAPER) 

GRA PAPER INS C-REGISTER 
SCR FLOOO BOX 

GRAFIKCURSOR AUF DEFAULTPOSITION 


1767 . GRA SET PEN 

Schreibfarbe setzen. Im Akkumulator erwartet GRA SET PEN die Farbstift- 
nummer. 


1767 

176A 

176D 


SCR INK ENCODE 
(GRA PEN) 
FERTIG! 
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176E. GRA SET PAPER 

Hintergrundfarbe setzen. Im Akkumulator erwartet GRA SET PEN die Färb- 
stiftnumer. 


176E ;SCR IN ENCODE 

1771 ;(GRA PAPER) 

1774 ;DAS WAR'S 

1775 -. GRA GET PEN 


Welche Schreibfarbe? Diese Routine liefert den Farbstift der Schreib¬ 
farbe im Akkumulator. 

1775 ;(GRA PEN) 

1778 ;FORTSETZUNG FOLGT! 


177A. GRA GET PAPER 

Welche Hintergrundfarbe? Diese Routine liefert den Farbstift der Hinter¬ 
grundfarbe im Akkumulator. 


177A ;(GRA PAPER) 

177D ;SCR INK OECODE 

1780 . GRA PLOT RELATIVE 

Grafikpunkt relativ zur aktuellen Cursorposition setzen. 

1780 ;ADD LFD KOORD. + REL KOORD. 


1783 . GRA PLOT ABSOLUTE 

Grafikpunkt setzen (absolut). 


1783 


;GRA PLOT 
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1786 


GRA PLOT 


GRA PLOT erwartet beim Aufruf die Koordinaten für das Setzen des Punktes 
in den Registern HL und DE (HL = Y-Koordinate, DE = X-Koordinate). 


1786 ;POS IN WINDOW 

1789 ;POSITION AUSSERHALB DES FENSTER 

178A ;SCR DOT POSITION 

178D ;(GRA PEN) 

1790 ;GRA PEN INS B-REGISTER ÜBERSTELLEN 

1791 ;SCR WRITE 

1794. GRA TEST RELATIVE 


Punkt gesetzt (relativ zum lfd. Cursor)? 

1794 ;ADD LFD KOORD. + REL KOORD. 


1797 . GRA TEST ABSOLUTE 

Punkt gesetzt (absolut)? 

1797 ;GRA TEST 


179A 


GRA TEST 


Gib die INK an der momentanen Grafikcursorposition im Akkumulator aus. 
Die Position des Grafikcursors wird durch die Registerpaare HL und DE 
bestimmt (HL = Y-Koordinate, DE = X-Koordinate). 


179A 

1790 

17A0 

17A3 


POS IN WINDOW 
GRA GET PAPER 
SCR DOT POSITION 
SCR READ 
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17A6. GRA LINE RELATIVE 

Linie von der lfd. zur relativen Distanz ziehen. 

17A6 ;ADD LFD KOORD. + REL KOORD. 

17A9.GRA LINE ABSOLUTE 

Linie von der lfd. zur absoluten Position ziehen. 

17A9 ;GRA LINE 

17AC. GRA SET MASK 

Parameter aus dem BASIC-Befehl MASK aus dem Akku retten. 

17AC ;MASK PARAMETER 

17AF ;FERTIG! 

17B0.GRA FIRST POINT 

Parameter aus dem BASIC-Befehl MASK aus dem Akku retten. Wird im Akku 
der Wert &FF übergeben, so soll der erste Punkt einer Linie gezeichnet 
werden. &00 steht für ersten Punkt nicht zeichnen. 

17B0 ;&FF ERSTEN PUNKT ZEICHNEN 

;&00 ERSTEN PUNKT NICHT ZEICHNEN 
17B3 ;DAS WAR'S 

17B4. GRA LINE 

17B4 ;ENDKOORDINATE ZEILE RETTEN 

1788 ;ENDKOORDINATE ZEILE HOLEN 

17B9 ;PHYS ZIELPOS. 

17BC ;HL-REGISTER SICHERN 
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17BD 

17C0 

17C1 

17C3 

17C4 

17C7 

17CA 

17CB 

17CC 

17CF 

1700 

17D2 

17D3 

17D6 

17D9 

17DA 

17DB 

17DD 

17DE 

17DF 

17E2 

17E5 

17E7 

17E8 

17EB 

17EC 

17F0 

17F1 

17F2 

17F5 


1940.. 

Ein Zeichen 

1942 

1962 

1973 

197B 


(RECHENPUFFER X-KOORD.) 
CARRY-FLAG ZURÜCKSETZEN 
DIFFERENZ ERRECHNEN 
MSB NACH AKKUMULATOR 
ERGEBNIS WEGSCHREIBEN 
•KOORDINATE GRÖSSER? 
•DE-REGISTER AUF STACK RETTEN 
[HL-REGISTER VOM STACK LADEN 
;(RECHENPUFFER Y-KOORD.) 

;CARRY-FLAG ZURÜCKSETZEN 

[DIFFERENZ ERMITTELN 

[MSB NACH AKKUMULATOR 

[UND INS RAM SCHREIBEN 

[KOORDINATE GRÖSSER? 

[Y-ENDKOORD. HOLEN 

[CARRY FÜR SBC ZURÜCKSETZEN 

;Y-DIFFERENZ BILDEN 

[ENOKOORDINATE ADDIEREN 

[CARRY ERMITTELN 

[UND UEGSCHREIBEN 

[AKKU MIT NEUEM WERT VERSORGEN 

[Y-DIFF. GRÖSSER X-DIFF.? 

[CHANGE DI FF. 

[CHANGE SIGN 
[VGL. &17E8 
[VGL. &17E8 
;VGL. &17E8 
[VGL. &17E8 
[ERSTES PIXEL 
[PIXEL = LOW? 


GRA WR CHAR 


an der lfd. Grafikcursorposition schreiben. 


TXT GET MATRIX 
SCR DOT POSITION 
SCR NEXT BYTE 
SCR NEXT LINE 
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1985 ;GRA ASK CURSOR 

1998 ;GRA KOVE ABSOLUTE 

19AC ;SCR DOT POSITION 

19C4 ;(GRA PEN) 

19CE ;<GRA PAPER) 

1902 ;SCR WRITE 

19D5. GRA TRANS SWITCH 

19D5 .-PARAMETER FÜR HINTERGRUNDMODUS 

19D8 ;FERTIG 
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9.7 Die Macht der Maschinensprache 

Maschinensprache - das ist Macht! Keine Hochsprache kann ihr 
in Punkto Geschwindigkeit und Kompaktheit das Wasser rei¬ 
chen, denn bis heute vermag keine Software eine Programmidee 
so zu optimieren wie der menschliche Geist. Doch leider ist die 
Maschinenprogrammierung - selbst für das menschliche Gehirn 
- eine zeitaufwendige und äußerst komplexe Angelegenheit. 
Dieser Umstand ist mit Sicherheit auch der Grund, warum viele 
Systemprogrammierer immer häufiger auf Hochsprachen zurück¬ 
greifen. Die Programmierung eines Problems läßt sich nämlich 
so in fast allen Fällen auf einen Bruchteil der sonst benötigten 
Zeit minimieren. Da jedoch selbst industrielle Compiler oft bei 
grafischen Problemen auf ihre Grenzen stoßen, behelfen sich 
viele Programmierer mit einer Verbindung aus Hochsprache und 
Maschinensprache. Betrachten wir die Struktur eines derartigen 
Programms genauer, werden wir feststellen, daß die 
Maschinensprache stets dann ihren Einsatz findet, wenn das mit 
ihrer Hilfe gelöste Problem entweder gar nicht oder nur schlecht 
mit Hochsprachen realisiert werden kann. 

Im diesem Teil finden Sie eine Sammlung von Maschinenrou¬ 
tinen, die sowohl von Maschinenprogrammen als von der 
BASIC-Ebene aus in eigene Programme implementiert werden 
können. Das bedeutet, daß auch der reine BASIC-Programmierer 
die Macht der Maschinensprache in gewissen Grenzen nutzen 
kann. 


9.7.1 Sprites auf dem CPC 

Sprites sind selbst definierbare, überdimensional große Sonder¬ 
zeichen, die oft aus mehreren Farben bestehen und an jeden 
beliebigen Punkt einer Rastergrafik projiziert‘werden können. 
Jedes Sprite wird dabei wie eine eigenständige Rastergrafik ver¬ 
waltet und kann auf dem Bildschirm beliebig ein- oder ausge¬ 
blendet werden. Sprites spielen insbesondere auf dem Gebiet der 
Spieleprogrammierung eine bedeutende Rolle, da sie nicht! den 
durch sie überlagerten Hintergrund, oder aber auch aridere 
Sprites bei Kollisionen zerstören. 
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In der Regel werden Sprites hardwaremäßig mit einem Video- 
Controller generiert und belasten somit kaum die Rechenzeit des 
Hauptprozessors. Dieser muß nämlich nur noch die aktuellen 
Sprite-Positionen an den Video-Controller weitergeben. 

Der HD 6845 des Schneider-CPC bietet uns hingegen - trotz 
seiner enormen Leistungsfähigkeit - nicht die Möglichkeit der 
interaktiven Sprite-Generierung. Viele CPC-Besitzer behelfen 
sich aus diesem Grund mit umdefinierten Charactern, die sie 
mittels TAG-Kommando über den Bildschirm gleiten lassen 
(siehe dazu auch Anhang). Damit sie den von ihnen überlagerten 
Hintergrund nicht zerstören, muß während der Animationsphase 
der XOR-Modus aktiviert sein. Obwohl dieses Verfahren bei 
einigen Anwendungen durchaus befriedigende Ergebnisse liefert, 
weist es doch bei objektiver Betrachtung erhebliche Schwächen 
auf. 

Da ein Charakter nicht aus mehreren Farben bestehen kann, ist 
die Farbgebung umdefinierter Zeichenketten durch die Anzahl 
der verwendeten Charakter begrenzt. Weiterhin sinkt die 
Animationsgeschwindigkeit bei simultaner Bewegung mehrerer 
Character so stark ab, daß beispielsweise ein action-geladenes 
Spiel entweder kaum oder nur mit Verlust der fließenden Cha¬ 
rakter-Bewegung zu realisieren ist. Bedauerlich ist auch die 
Tatsache, daß die eigentliche Form einer Zeichenkette oder eines 
Zeichens durch den XOR-Modus so stark entstellt werden kann, 
daß sie kaum wieder zu erkennen ist. 

Um diese Schwachpunkte zu beseitigen, möchten wir Ihnen an 
dieser Stelle einen softwaremäßigen Sprite-Generator vorstellen. 
Er ist komplett in Maschinensprache geschrieben und läßt sich 
sowohl von BASIC als auch von Maschinenprogrammen ansteu¬ 
ern. Der Sprite-Generator kann maximal acht Sprites gleichzeitig 
verwalten und nimmt dabei inklusive Sprite-Daten weniger als 
1,5 KByte ihres Hauptspeichers in Anspruch. 
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S pritespezi fizierung 

Die Größe eines generierten Sprites begrenzt sich auf eine 8 mal 
16-Punkt-Matrix. Da der Sprite-Generator grundsätzlich in 
MODE 0 arbeitet, kann jedem dieser 128 Punkte eine von 
maximal 16 Farben zugewiesen werden. Um Ihnen die doch 
recht komplizierte Sprite-Definition zu erleichtern, werden wir 
zu einem späteren Zeitpunkt einen komfortablen Sprite-Editor 
zum Abtippen vorstellen. Selbstverständlich können die Sprites 
auch ohne dieses Programm definiert werden. Wo welches Bit 
wie gesetzt bzw. rückgesetzt werden muß, findet der interes¬ 
sierte Leser in Kapitel 9.4. Wir empfehlen Ihnen aber trotzdem, 
den Sprite-Editor zu verwenden, da selbst unter Zuhilfenahme 
eines Taschenrechners die vollständige Definition eines einzigen 
Sprite länger dauert als das Abtippen des gesamten Editors. 

Die fertigen Sprite-Daten, die pro Sprite 64 Byte umfassen, 
müssen in einen fest definierten RAM-Bereich abgelegt werden, 
Dieser Bereich kann mit der Formel 


X=&A0C8+SN*64 


ermittelt werden, wobei &A0C8 die Basisadresse und SN die 
Sprite-Nummer (0 bis 7) repräsentiert. Einmal auf diese Weise 
definierte Sprites können selbstverständlich auf Diskette abge¬ 
speichert und bei Bedarf direkt in den zuständigen RAM- 
Bereich geladen werden. Die BASIC-Sequenz 


SAVE"fit ename",B,&A0C8+SN*64,64 


kann einen durch SN spezifizierten Sprite abspeichern. Zum 
Laden eines auf diese Weise abgespeicherten Sprite genügt ein 
einfacher LOAD-Befehl ohne Adreß-Angabe. 

Die aktuelle Bildschirmposition eines Sprite muß in reservierte 
Speicherzellen, die sich innerhalb unseres Sprite-Generator-Pro- 
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gramms befinden, mit POKE-Befehlen übergeben werden. Diese 
Position (Koordinaten-Ursprung) bezieht sich auf die linke 
obere Ecke der Sprites. Ihre X- und Y-Koordinaten müssen im 
folgenden Werte-Bereich übergeben werden: 


X = 0 bis 151 
Y = 0 bis 183 


Falls der übermittelte Wert den zulässigen Wertebereich über¬ 
schreitet, wird dieser, um Fehlfunktionen zu vermeiden, auto¬ 
matisch in Position 0 umgewandelt. 

Die reservierten Adressen, in denen die Sprite-Koordinaten 
übergeben werden müssen, können mit den beiden nachstehen¬ 
den Formeln errechnet werden: 


Adresse für X-Koordinate = &A559+2*SN 
Adresse für Y-Koordinate = &A55A+2*SN 


Die Adressen &A559 und &A55A sind dabei die Basisadressen 
bezogen auf Sprite 0. Die Variable SN enthält wieder unsere 
Sprite-Nummer (0 bis 7), die mit zwei multipliziert den erfor¬ 
derlichen Offset bildet, der zum Erreichen aller acht Sprite- 
Koordinatenpaare erforderlich ist. 
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Ursprung - v 

* 0 1 234567 



Abb. 24: Grundstruktur eines Sprite 


Das Assemblerlisting: 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 



ORG &A0C0 


FRAME: EQU &BD19 ;FRAME FLY BACK 


INIT: 


LD IX,NEWSP 
CALL GBACK 
RET 


;IX=POS*COUNTER 
;SPRITEHINTERGRUND SICHERN 
;RUECKSPRUNG ZU BASIC 
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240 

t 



250 

t 



260 

• ***** 

1 

SPRITEDATEN ***** 


270 

« 



280 

SPR: 

DEFS 64 

DATEN FUER SPRITE 0 

290 


DEFS 64 

DATEN FUER SPRITE 1 

300 


DEFS 64 

DATEN FUER SPRITE 2 

310 


DEFS 64 

DATEN FUER SPRITE 3 

320 


DEFS 64 

DATEN FUER SPRITE 4 

330 


DEFS 64 

DATEN FUER SPRITE 5 

340 


DEFS 64 

DATEN FUER SPRITE 6 

350 


DEFS 64 

DATEN FUER SPRITE 7 

360 

r 



370 

BACK: 

DEFS 80 

SPEICHER FUER SPRITE-HINTERGR. 0 

380 


DEFS 80 

SPEICHER FUER SPRITE-HINTERGR. 1 

390 


DEFS 80 

SPEICHER FUER SPRITE-HINTERGR. 2 

400 


DEFS 80 

SPEICHER FUER SPRITE-HINTERGR. 3 

410 


DEFS 80 

SPEICHER FUER SPRITE-HINTERGR. 4 

420 


DEFS 80 

SPEICHER FUER SPRITE-HINTERGR. 5 

430 


DEFS 80 

SPEICHER FUER SPRITE-HINTERGR. 6 

440 


DEFS 80 

SPEICHER FUER SPRITE-HINTERGR. 7 

450 

f 



460 ONOFF: 

DEFB 0 

SPRITE EIN-/AUS-SCHALTER 

470 

f 



480 

OLDSP: 

DE FW 0 

ALTE POSITION (SPRITE 0) 

490 


DEFW 0 

ALTE POSITION (SPRITE 1) 

500 


DEFW 0 

ALTE POSITION (SPRITE 2) 

510 


DEFW 0 

ALTE POSITION (SPRITE 3) 

520 


DEFW 0 

ALTE POSITION (SPRITE 4) 

530 


DEFW 0 

ALTE POSITION (SPRITE 5) 

540 


DEFW 0 

ALTE POSITION (SPRITE 6) 

550 


DEFW 0 

ALTE POSITION (SPRITE 7) 

560 

« 



570 

NEWSP: 

DEFW 0 

NEUE POSITION (SPRITE 0) 

580 


DEFW 0 

NEUE POSITION (SPRITE 1) 

590 


DEFW 0 

NEUE POSITION (SPRITE 2) 

600 


DEFW 0 

NEUE POSITION (SPRITE 3) 

610 


DEFW 0 

NEUE POSITION (SPRITE 4) 

620 


DEFW 0 

NEUE POSITION (SPRITE 5) 
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630 

DE FU 

o 

NEUE POSITION (SPRITE 6) 

640 

DE FW 

o 

NEUE POSITION (SPRITE 7) 

650 ; 




660 ; 




670 . ***** 

SPRITE-HINTERGRUND ZURUESCHSCHREIBEN ***** 

680 ; 




690 START: 

CALL 

FRAME 

AUF STRAHLENRUECKLAUF WARTEN 

700 

LD 

C,&08 

SCHLEIFE INITIALISIEREN 

710 

LD 

IX,OLDSP 

IX = POSITIONS-POINTER 

720 

LD 

HL,BACK 

POINTER AUF HINTERGRUNDSPEICHER 

730 ; 




740 GETB: 

CALL 

CLCPOS 

BERECHNE START-BYTE 

750 ; 




760 

LD 

B,&10 

LINE-COUNTER INIT 

770 PL INE: 

PUSH 

BC 

RETTE COUNTER 

780 

LD 

BC,&0005 

5 BYTES PRO ZEILE 

790 

PUSH 

DE 

VIDEO-POINTER RETTEN 

800 

LDIR 


ZEILE ZURUECKSCHREIBEN 

810 

POP 

DE 

VIDEO-POINTER HOLEN 

820 

LD 

A,&08 

DE = DE + &0800 

830 

ADD 

A,D 

ii 

840 

LD 

D,A 

ii 

850 

JP 

NC,NOOFF 

NEGATIVER ZEILENOFFSET? 

860 

EX 

DE,HL 

HL = VIDEO-POINTER 

870 

LD 

BC.&3FAF 

ZEILENOFFSET FUER SBC 

880 

SBC 

HL,BC 

ENTGUELTIGE ZEILE 

890 

EX 

DE,HL 

HL = HINTERGR. POINTER 

900 ; 




910 NOOFF: 

POP 

BC 

;HOLE LINE-COUNTER 

920 

DJNZ 

PL INE 

;NAECHSTE ZEILE 

930 ; 




940 

DEC 

C 

;NAECHSTER SPRITEHINTERGRUND 

950 

JP 

NZ,GETB 

n 

960 ; 




970 ; 




9g0 . ***** 

SPRITE-HINTERGRUND HOLEN ***** 

990 ; 




1000 

CALL 

GBACK 

;HOLE HINTERGRUND 

1010 ; 
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1020 ; 




1030 ; ***** 

SPRITES ZEICHNEN 

***** 

1040 ; 




1050 

LD 

C,&01 

SCHLEIFENZAEHLER INIT 

1060 

LD 

IX,NEWSP 

POINTER AUF SPRITEKOORDINATEN 

1070 

LD 

HL.SPR 

HL = SPRITE-POINTER 

1080 ; 




1090 PUTSPR: 

LD 

A,(ONOFF> 

SPRITE AKTIVIERT? 

1100 

AND 

C 

■i 

1110 

JR 

Z.NOSPR 

ii 

1120 ; 




1130 

CALL 

CLCPOS 

BERECHNE START-BYTE 

1140 ; 




1150 

LD 

B,S<10 

LI NE-COUNTER 

1160 ; 




1170 DSPRLN: 

PUSH 

BC 

RETTE COUNTER 

1180 

PUSH 

DE 

RETTE VIDEO-POINTER 

1190 

LD 

BC.&0004 

4 BYTES PRO ZEILE 

1200 

LD 

Ai I 

HOLE X 

1210 

AND 

%00000001 

B1 LOSCHIRMADR. GERADE? 

1220 

JR 

Z.EVEN 

ii 

1230 ; 




1240 

LD 

B,C 

COUNTER NACH B 

1250 

LD 

A,(DE); 

HOLE BYTE VON DISPLAY 

1260 NGSN: 

AND 

3410101010 

UND BLENDE RECHTES PIXEL AUS 

1270 

LD 

C,A 

ERGEBNIS NACK C 

1280 

LD 

A,(HL) 

HOLE SPRITEDATEN 

1290 

RRCA 


VERSCHIEBE PIXEL NACH RECHTS 

1300 

AND 

7.01010101 

UND BLENDE FALSCHE PIXEL AUS 

1310 

OR 

C 

VERBINDE MIT HINTERGRUND 

1320 

LD 

(DE),A 

FERTIGES BYTE ZURUECKSCHREIBEN 

1330 

INC 

DE 

POINTER AUF NAECHSTES BYTE 

1340 

LD 

A, (DE) 

HOLE BYTE VON DISPLAY 

1350 

AND 

%01010101 

UND BLENDE LINKES PIXEL AUS 

1360 

LD 

C,A 

ERGEBNIS NACK C 

1370 

LD 

A,(HL) 

HOLE SPRITEDATEN 

1380 

RLCA 


VERSCHIEBE PIXEL NACH LINKS 

1390 

AND 

3S10101010 

UND BLENDE FALSCHE PIXEL AUS 

1400 

OR 

C 

VERBINDE MIT HINTERGRUND 
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1410 

INC 

HL 

NAECHSTE SPRITEDATEN 

1420 ; 




1430 

DJNZ 

NGSN 

NAECHSTES NIBBLE VERARBEITEN 

1440 

LD 

(DE),A 

LETZTES BYTE ZURUECKSCHREI BEN 

1450 

JR 

OFFS 

UND NAECHSTE ZEILE HOLEN 

1460 ; 




1470 EVEN: 

LDIR 


ZEILE KOPIEREN 

1480 ; 




1490 OFFS: 

POP 

DE 

VIDEO-POINTER HOLEN • 

1500 

LD 

A,&08 

DE « DE + 8.0800 

1510 

ADD 

A,D 


1520 

LD 

D/A 

ii 

1530 

JP 

NC,NOOFF2 

NEGATIVER ZEILENOFFSET? 

1540 

EX 

DE, HL 

HL = VIDEO-POINTER 

1550 

LD 

BC,&3FAF 

ZEILENOFFSET FUER SBC 

1560 

SBC 

HL,BC 

ENTGUELTIGE ZEILE 

1570 

EX 

DE, KL 

HL = HINTERGR. POINTER 

1580 ; 




1590 NOOFF2: 

POP 

BC 

HOLE COUNTER 

1600 

DJNZ 

DSPRLN 

■NAECHSTE ZEILE 

1610 MVEIN: 

SLA 

C 

■HOLE NAECHSTEN SPRITE 

1620 

RET 

Z 

■FERTIG??? 

1630 

JR 

PUTSPR 

■WENN NICHT... 

1640 ; 




1650 NOSPR: 

LD 

DE, 8.40 

UEBERSPRINGE SPRITE 

1660 

ADD 

HL,DE 

ii 

1670 

INC 

IX 

ii 

1680 

INC 

IX 

ii 

1690 

JR 

MVEIN 

ii 

1700 ; 




1710 ; 




1720 ■ ***** 

SPRITE-HINTERGRUND SPEICHERN ***** 

1730 ; 




1740 GBACK: 

LD 

C,&08 

;SCHLEIFE INITIALISIEREN 

1750 

LD 

HL,BACK 

POINTER AUF HINTERGRUNDSPEICHER 

1760 ; 




1770 GETB2: 

CALL 

CLCPOS 

BERECHNE START-BYTE 

1780 ; 




1790 

LD 

B.&10 

;LINE-COUNTER INIT 


LINE-COUNTER INIT 
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1800 

EX 

DE,HL 

HL = VIDEO-POINTER 

1810 GLINE: 

PUSH 

BC 

RETTE COUNTER 

1820 

LD 

BC.&0005 

5 BYTES PRO ZEILE 

1830 

PUSH 

HL 

VIDEO-POINTER RETTEN 

1840 

LDIR 


ZEILE ZURUECKSCHREIBEN 

1850 

POP 

HL 

VIDEO-POINTER HOLEN 

1860 

LD 

BC.&0800 

HL = HL + &0800 

1870 

ADD 

HL,BC 

II 

1880 

JP 

NC,NOOFF3 

NEGATIVER ZEILENOFFSET? 

1890 

LD 

BC,&3FAF 

ZEILENOFFSET FUER SBC 

1900 

SBC 

HL,BC 

ENTGUELTIGE ZEILE 

1910 ; 




1920 NOOFF3: 

POP 

BC 

HOLE LI NE-COUNTER 

1930 

DJNZ 

GLINE 

NAECHSTE ZEILE 

1940 ; 




1950 

EX 

DE,HL 

HL « (BACK) 

1960 

DEC 

C 

NAECHSTER SPRITEHINTERGRUND 

1970 

JP 

NZ,GETB2 

ii 

1980 ; 




1990 

LD 

DE.OLDSP 

ALTE KOORDINATEN 

2000 

LD 

HL.NEWSP 

= NEUE KOORDINATEN 

2010 

LD 

BC, 16 

INSGES. 16 STUECK 

2020 

LDIR 


KOPIEREN 

2030 ; 




2040 

RET 


•GESCHAFFT! 

2050 ; 




2060 ; 




2070 ; ***** 

8ILDSCHIRMADRESSE BERECHNEN ***** 

2080 ; 




2090 CLCPOS: 

PUSH 

HL 

HL UND BC RETTEN 

2100 

PUSH 

BC 

n 

2110 

LD 

A, (IX+&00) 

A = X 

2120 

CP 

152 

X <= 151 ? 

2130 

JR 

C.SVRR 

n 

2140 

XOR 

A 

o 

II 

X 

2150 SVRR: 

LD 

C.A 

;C = X 

2160 

LD 

I,A 

r’I = X 

2170 ; 




2180 

LD 

A,(IX+&01) 

;A = Y 
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2190 

CP 

184 

;Y <= 183 ? 

2200 

JR 

C, SVOR 

. ii 

9 

2210 

XOR 

A 

;X = 0 

2220 SVOR: 

LD 

B,A 

»c ■ x 

2230 ; 

2240 

AND 

%00000111 

;BLENDE BIT-NUMMER AUS 

2250 ; 

2260 

SRL 

s 

;Y « Y/8 

2270 

SRL 

B 

• H 

/ 

2280 

SRL 

B 

• II 

/ 

2290 ; 

2300 

LD 

HL.&C000 

;HL = VIDEO-START 

2310 

JR 

Z,NOMUL1 

;MULTIPLIKATOR = 0? 

2320 

LD 

DE ,80 

;HL = Y/8 * 80 

2330 MULI: 

ADD 

HL,DE 

• n 

i 

2340 

DJNZ 

MULI 

. ii 

# 

2350 ; 

2360 NOMULI: 

AND 

A 

/MULTIPLIKATOR « 0? 

2370 

JR 

Z.NOMUL2 

- ii 

* 

2380 

LD 

B,A 

/SCHLEIFEN INIT 

2390 

LD 

DE.&0800 

;HL = HL+(Y-Y/8*8)*&800 

2400 MUL2: 

ADD 

HL, DE 

. ii 

/ 

2410 

DJNZ MUL2 

. ii 

i 

2420 ; 

2430 NOMUL2: 

LD 

E,C 

;E = X 

2440 

SRL 

E 

;X=X/2 

2450 

LD 

D,&00 

/16-BIT ADDITION VORBEREITEN 

2460 

ADD 

HL,DE 

;HL = VIDEO-ADRESSE 

2470 

EX 

DE,HL 

/DE = VIDEO-ADRESSE 

2480 ; 

2490 

INC 

IX 

/POINTER AUF NAECHSTE KOORDINATEN 

2500 

INC 

IX 

. ii 

» 

2510 ; 

2520 

POP 

BC 

/BC UND HL HOLEN 

2530 

POP 

HL 

• ii 

9 

2540 

RET 


/FERTIG! 

2550 ; 

2560 

END 


/PROGRAMMENDE 
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Und für unsere BASIC-Freunde der BASIC-Lader: 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 


■## ## 

'## BASIC-LADER FUER SPRITE-GENERATOR ## 
'## 10.10.1986/TAV m 

’## ## 

1 immmmmmmmmmm mm mmmmm 


MEMORY &A0BF 

FOR I=&AOCO TO &A0C7:READ X:P0KE I,X:NEXT 
FOR I=&A0C8 TO &A568:POKE I,0:NEXT 
FOR I=&A569 TO &A66A:READ X:POKE I,X:NEXT 
END 

I 

DATA 221,33,89,165,205,247,165,201,205,25,189,14,8,221,33 
DATA 73,165,33,200,162,205,42,166,6,16,197,1,5,0,213,237 
DATA 176,209,62,8,130,87,210,144,165,235,1,175,63,237,66,235 
DATA 193,16,231,13,194,117,165,205,247,165,14,1,221,33,89,165 
DATA 33,200,160,58,72,165,161,40,68,205,42,166,6,16,197,213 
DATA 1,4,0,237,87,230,1,40,27,65,26,230,170,79,126,15 
DATA 230,85,177,18,19,26,230,85,79,126,7,230,170,177,35,16 
DATA 234,18,24,2,237,176,209,62,8,130,87,210,229,165,235,1 
DATA 175,63,237,66,235,193,16,198,203,33,200,24,182,17,64,0 
DATA 25,221,35,221,35,24,241,14,8,33,200,162,205,42,166,6 
DATA 16,235,197,1,5,0,229,237,176,225,1,0,8,9,210,22 
DATA 166,1,175,63,237,66,193,16,233.235,13,194,252,165,17,73 
DATA 165,33,89,165,1,16,0,237,176,201,229,197,221,126,0,254 
DATA 152,56,1,175,79,237,71,221,126,1,254,184,56,1,175,71 
DATA 230,7,203,56,203,56,203,56,33,0,192,40,6,17,80,0 
DATA 25,16,253,167,40,7,71,17,0,8,25,16,253,89,203,59 
DATA 22,0,25,235,221,35,221,35,193,225,201 
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Organisation und Arbeitsweise des Sprite-Cenerators 

Unser Sprite-Generator arbeitet nach einem einfachen, aber sehr 
effektiven Verfahren. Unmittelbar nach dem Start Ihres 
Träger Programms muß er einmalig durch einen 


CALL &A0C0 


initialisiert werden. Dies ist notwenig, um den Hintergrund aller 
acht möglichen Sprites in einen speziellen, im Generator-Pro¬ 
gramm vorhandenen Speicherbereich zu transferieren. Im näch¬ 
sten Schritt werden die Hintergrund-Koordinaten aller acht 
Sprites für einen späteren Zugriff kopiert. 

Jetzt ist das Sprite-Generator-Programm prinzipiell einsatzbereit. 
Doch bevor Ihre Sprites animiert werden können, muß erst spe¬ 
zifiziert werden 


- wieviel Sprites definiert wurden, 

- wieviel Sprites gleichzeitig bewegt werden sollen und 

- welche Priorität einem Sprite zugeordnet wird. 


Die dafür benötigten Parameter werden in einem einzigen Byte 
abgelegt - der RAM-Adresse &A548. Die Bits 0 bis 7 ihres 
Inhalts bestimmen, ob ein Sprite an- oder ausgeschaltet ist sowie 
seine Priorität. Unter Priorität verstehen wir die Position eines 
Sprite auf einer imaginären Z-Achse. Imaginär deshalb, weil 
sich die Z-Achse nur auf Sprites und nicht auf die übrige Gra¬ 
fik bezieht. Da maximal acht Sprites definiert werden können, 
gibt es auch acht Prioritäten mit den Stufen 0 bis 7. Diese Prio¬ 
ritätsstufen entsprechen den Bit-Nummern unseres Steuerbytes. 
Falls zwei Sprites kollidieren, überlappt immer der Sprite mit 
der höheren Prioritätsstufe den mit der niedrigeren. Die nach¬ 
stehende Tabelle verdeutlicht noch einmal diese Zusammen¬ 
hänge: 
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Bit 0: (POKE &A548,&01) Sprite 
Bit 1: (POKE &A548,&02) Sprite 
Bit 2: (POKE &A548,&04) Sprite 
Bit 3: (POKE &A548,&08) Sprite 
Bit 4: (POKE &A548,&10) Sprite 
Bit 5: (POKE &A548.&20) Sprite 
Bit 6: (POKE &A548,&40) Sprite 
Bit 7: (POKE &A548,&80) Sprite 


1 aktivieren (Prioritätsstufe 0) 

2 aktivieren (Prioritätsstufe 1) 

3 aktivieren (Prioritätsstufe 2) 

4 aktivieren (Prioritätsstufe 3) 

5 aktivieren (Prioritätsstufe 4) 

6 aktivieren (Prioritätsstufe 5) 

7 aktivieren (Prioritätsstufe 6) 

8 aktivieren (Prioritätsstufe 7) 


Wie aus dieser Tabelle ersichtlich ist, entspricht einem gesetzten 
Bit ein aktivierter Sprite. Sollen mehrere Sprites gleichzeitig ein¬ 
geschaltet werden, müssen die oben aufgeführten POKE-Argu- 
mente der betreffenen Sprite-Nummern addiert werden. Bei¬ 
spielsweise aktiviert 


POKE &A548.&42 


Sprite Nummer zwei und sieben. Die übrigen Sprites bleiben 
dabei ausgeschaltet. 

Sind auf diese Weise alle Sprites spezifiziert, erwartet der Sprite- 
Generator die aktuelle Position der zu bewegenden Sprites in 
den oben bereits beschriebenen Adressen, die für deren X- und 
Y-Koordinaten reserviert sind. Unmittelbar danach sollten mit 


CALL &A569 


alle aktivierten Sprites animiert, d.h, den neuen Koordinaten 
angepaßt werden. Das Sprite-Generator-Programm wartet bei 
diesem Aufruf zuerst auf den Strahlenrücklauf, damit die nach¬ 
folgenden Schritte so flackerfrei wie möglich ausgeführt werden 
können. Danach schreibt eine Routine den zuvor geretteten 
Hintergrund zurück und löscht somit alle alten Sprites. Nun wird 
der Hintergrund, der durch die gerade übergebene aktuelle 
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Position definiert ist, erneut gerettet. Weiterhin werden die 
aktuellen Koordinaten kopiert, um ein späteres Zurückschreiben 
des Hintergrundes zu ermöglichen. Im letzen Schritt transferiert 
unser Programm alle aktivierten Sprites gemäß ihrer Prioritäts¬ 
stufe auf dem Bildschirm. 

Um Ihnen an einem praktischen Beispiel den Einsatz des Sprite- 
Generators zu demonstrieren, folgt an dieser Stelle ein kleines 
Demo-Programm. Bitte beachten Sie, daß sich vor Starten dieses 
Programms der Code des Sprite-Generators bereits im Speicher 
befinden muß. 


100 ■ mmmmrntmmm t 
110 *## m 

120 *## SPRITE-DEMO ## 

130 •## 10. 10. 86/TAV ## 

ho *## m 

150 ■ 

160 * 

170 • 

180 MEMORY &A0BF 
190 DEFINT A-Z 
200 1 
210 1 

220 ****** BILDSCHIRMPARAMETER SPEZIFIZIEREN 
230 ■ 

240 MODE 0 

250 BORDER 0:PAPER 5:CLS 
260 INK 14,13:INK 15,11 
270 * 

280 1 

290 ****** KOMMANDOS GENERIEREN 
300 • 

310 ONOFF=&A548 
320 INIT=&A0C0 
330 SPRITE=&A569 
340 SPRDAT=&A0C8 
350 SPRPOS=&A559 
360 ' 
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370 • 

380 ****** SPRITES EINLESEN 
390 • 

400 FOR I=SPRDAT TO SPRDAT+191 

410 READ X 

420 POKE I,X 

430 NEXT 

440 • 

450 ' 

460 ****** SPRITEGENERATOR INITIALISIEREN 
470 ' 

480 CALL INIT 
490 • 

500 ' 

510 ****** STERNE ERZEUGEN 
520 • 

530 FOR 1=1 TO 100 

540 PLOT(RND(1>*639),< RND<1)*399),14 
550 NEXT 
560 1 
570 1 

580 '***** SPRITES PROJIZIEREN 
590 ' 

600 POKE ONOFF.3 
610 2=0 
620 ' 

630 FOR 1=0 TO 151 

640 POKE SPRPOS,I:POKE SPRPOS+1,1 

650 POKE SPRPOS+2,151 -1:POKE SPRPOS+3,151-I 

660 IF Z=2 AND 1=75 THEN 750 

670 CALL SPRITE 

680 NEXT 

690 Z=Z+1 

700 GOTO 630 

710 1 

720 ' 

730 ****** EXPLOSION 
740 ' 

750 POKE SPRPOS+4,1:POKE SPRPOS+5,1 
760 POKE 0N0FF,4 
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All 


770 CALL SPRITE 

780 FOR 1=1 TO 500:NEXT 

790 POKE ONOFF.0 

800 CALL SPRITE 

810 FOR 1=1 TO 1000:NEXT 

820 GOTO 600 

830 ' 

840 1 

850 ****** SPRITEDATEN FUER 1. JAEGER 
860 ' 

870 DATA 240,240,240,240 
880 DATA 240,240,240,240 
890 DATA 240,240,240,240 
900 DATA 240,240,240,240 
910 DATA 210,240,240,240 
920 DATA 3,240,240,240 
930 DATA 139,3,82,240 
940 DATA 204,63,35,82 
950 DATA 161,23,63,63 
960 DATA 240,240,240,240 
970 DATA 240,240,240,240 
980 DATA 240,240,240,240 
990 DATA 240,240,240,240 
1000 DATA 240,240,240,240 
1010 DATA 240,240,240,240 
1020 DATA 240,240,240,240 
1030 • 

1040 ' 

1050 ****** SPRITEDATEN FUER 2. JAEGER 
1060 • 

1070 DATA 240,240,240,240 
1080 DATA 240,240,240,240 
1090 DATA 240,240,240,240 
1100 DATA 240,240,240,240 
1110 DATA 240,240,240,240 
1120 DATA 240,240,240,176 
1130 DATA 240,240,240,18 
1140 DATA 240,165,11,101 
1150 DATA 245,58,48,204 
1160 DATA 60,60,41,82 
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1170 DATA 240,240,240,240 
1180 DATA 240,240,240,240 
1190 DATA 240,240,240,240 
1200 DATA 240,240,240,240 
1210 DATA 240,240,240,240 
1220 DATA 240,240,240,240 
1230 ' 

1240 ' 

1250 '***** SPR1TEDATEN EUER EXPLOSION 
1260 1 

1270 DATA 240,240,240,240 
1280 DATA 240,240,240,240 
1290 DATA 240,240,240,240 
1300 DATA 240,216,205,240 
1310 DATA 240,229,228,240 
1320 DATA 228,240,218,240 
1330 DATA 240,206,206,240 
1340 DATA 240,156,109,240 
1350 DATA 240,228,109,216 
1360 DATA 240,229,218,240 
1370 DATA 240,216,216,216 
1380 DATA 240,240,240,240 
1390 DATA 240,229,229,240 
1400 DATA 240,240,240,240 
1410 DATA 240,240,240,240 
1420 DATA 240,240,240,240 


Vielleicht haben Sie bemerkt, daß die Sprites während der Ani¬ 
mationsphase leicht flackern. Das liegt daran, daß die Ausfüh¬ 
rungszeit, die unser Sprite-Generator für einen Berechnungsvor¬ 
gang benötigt, mehr Zeit in Anspruch nimmt, als ein 
Strahlenrücklauf des Kathodenstrahls. Um diesen Effekt zu eli¬ 
minieren, muß das Programm mit zwei voneinander unabhängi¬ 
gen Bildschirmseiten arbeiten. Dabei werden alle Sprites auf 
einer unsichtbaren Bildschirmseite erstellt und danach die sicht¬ 
bare Bildschirmseite mit der unsichtbaren vertauscht. Wie eine 
derartige Verwaltung programmtechnisch zu realisieren ist, 
erfahren Sie in einem späteren Abschnitt. 
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Anmerkung: Falls Sie einen CPC 464 besitzen und den Sprite- 

Generator mit einem BASIC-Programm ansteu¬ 
ern, ist von einer zweiseitigen Bildschirmverwal¬ 
tung abzuraten, da die Organisation der zweiten 
Bildschirmseite 16 KByte in Anspruch nimmt. 


Der Sprite-Editor 

Sprites sind - insbesondere in MODE 0 - aufwendig zu definie¬ 
ren. Um diesen Aufwand auf ein Minimum zu reduzieren, 
möchten wir zum Abschluß noch einen Sprite-Editor vorstellen. 
Er ist vollkommen in BASIC geschrieben, und ermöglicht die 
komfortable und schnelle Definition einer 8 mal 16-Punkte- 
Matrix. Weiterhin enthält das Programm einen DATA-Genera- 
tor, der auf Wunsch die Daten des fertiggestellten Sprite errech¬ 
net, in DATA-Zeilen um wandelt und diese als BASIC-Pro¬ 
gramm abspeichert. Die so entstandenen Programm-Files können 
dann mit dem MERGE-Befehl mit Ihrem Hauptprogramm ver¬ 
bunden werden. 


Befehlssatz: 


CURSOR-Tasten 

Mit den Cursor-Tasten wird der Cursor der 8 mal 16 Punkte- 
Matrix in alle Richtungen bewegt. 


Pfeil oben oder Pfeil unten + SHIFT 

Wechselt die PEN-Nummer (Cursor-Farbe) in auf- oder abstei¬ 
gender Reihenfolge. 
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Leertaste (Space) 

Durch das Betätigen der Leertaste wird der Punkt unter dem 
Cursor in der eingestellten Farbe gesetzt. 


Taste "<" 

Verschiebt alle Pixel um eine Stelle nach links. Die dabei aus 
der Matrix geschobenen Punkte werden rechts angefügt. 


Taste ">" 

Verschiebt alle Pixel um eine Stelle nach rechts. Die dabei aus 
der Matrix geschobenen Punkte werden links angefügt. 


Taste "A" 

Verschiebt alle Pixel um eine Stelle nach oben. Die dabei aus 
der Matrix geschobenen Punkte werden unten angefügt. 


Taste "Z" 

Verschiebt alle Pixel um eine Stelle nach unten. Die dabei aus. 
der Matrix geschobenen Punkte werden oben angefügt. 


Taste "S" 

Sprite sichern. Diese Routine öffnet ein Fenster und fragt nach 
einem Dateinamen. Danach wird der Sprite unter dem eingege¬ 
benen Namen auf Diskette abgelegt. 
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Taste "L" 

Sprite laden. Diese Routine öffnet ein Fenster und fragt nach 
einem Dateinamen. Danach wird der Sprite unter dem eingege¬ 
benen Namen von Diskette geladen. 


Taste” D" 

DATA-Zeilen generieren. Diese Routine öffnet ein Fenster und 
fragt nach einem Dateinamen. Danach werden die Daten des 
Sprite automatisch in DATA-Zeilen umgewandelt und diese 
unter dem eingegebenen Namen auf Diskette als BASIC-Pro- 
gramm abgespeichert. (Das so erzeugte Programm kann mit dem 
MERGE-Befehl mit jedem anderen BASIC-Programm verknüpft 
werden.) 


Taste "N” 

Neu - der aktuelle Sprite wird gelöscht. 


Taste "E" 

Verlassen des Sprite-Editors. 


100 ■ mmmmtmmm« 

110 ■## m 

120 '## SPRITE-EDITOR ## 

130 ■## 8.10.86/TAV ## 

HO •## ## 

150 ' mHÜMMMMUMM # 

160 ' 

170 * 

•172 i***** INITIALISIERUNG ***** 

175 • 

180 MODE 0:INK H,13:INK 15,11:PEN 1:PAPER 0:DEFINT A-Z 
190 DIM P(7,15) 
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200 C=4:FOR 1=0 TO 15:F0R J=0 TO 7:P<J,I)=5:NEXT:NEXT 
210 UINDOW #1,3,17,15,18 
220 SYMBOL AFTER 254 

230 SYMBOL 255,0,127,127,127,127,127,127,0 
240 SYMBOL 254,0,85,42,85,42,85,42,0 
242 ' 

244 ' 

2 4 6 .***** BILDSCHIRMMASKE AUFBAUEN ***** 

248 1 

260 PRINT ■'## ##'•; 

270 PRINT "##";:PEN 3:PRINT" SPR1TE-EDIT0R ";:PEN 1:PRINT"##"; 

280 PRINT :PEN 3:PRINT” 8.10.86/TAV •*; :PEN 1 :PRINT'‘##"; 

290 PRINT "## ##'■; 

300 PRINT " ####### ####### ###### »; 

310 PEN 3:L0CATE 1,11:GOSUB 550:LOCATE 1,19:GOSUB 550 

320 FOR 1=0 TO 15:LOCATE 7,9+1:FOR J=0 TO 7:PL0T 32+J*4,94-I*2,P(J,I):PE 

N P(J,I):PRINT CHR$(255);:NEXT 

330 PEN IrPRINT" P'';:PEN 3:PRINT USING"##";I;:PEN I:PRINT " “;CHR$(143>; 
:NEXT 

340 LOCATE X+7,Y+9:PEN C:PRINT CHR$(254);:L0CATE 2,12:PRINT CHR${143);:L 
0CATE 2,13:PRINT CHR$(143); 

350 LOCATE 17,C+9:PEN 4:PRINT USING"##";C; 

352 1 
354 1 

356 '***** ABFRAGE DER KOMMANDOS UND DEREN DEKODIERUNG ***** 

358 ' 

360 Y$=INKEY$:Y$=UPPER$CY$) 

370 IF Y$=CHR$(240) THEN GOSUB 540:Y=Y-1:IF Y<0 THEN Y=15 

380 IF Y$=CHR$(241) THEN GOSUB 540:Y=Y+1:IF Y>15 THEN Y=0 

390 IF Y$=CHR$(242) THEN GOSUB 540:X=X-1:IF X<0 THEN X=7 

400 IF Y$=CHR$(243) THEN GOSUB 540:X=X+1:IF X>7 THEN X=0 

410 IF Y$=» 11 THEN P(X,Y)=C:PL0T 32+X*4,94-Y*2,C 

420 IF Y$=CHR$<244) THEN LOCATE 17,C+9:PEN 3:PRINT USING"##";C;:C=C-1:IF 
C<0 THEN C=15 

430 IF Y$=CHRS(245) THEN:LOCATE 17,C+9:PEN 3:PRINT USING 11 ##";C; :C=C+1:1F 
015 THEN C=0 

440 IF Y$='\" THEN FOR J=0 TO 15:TMP=P(7,J):FOR 1=6 TO 0 STEP-1 :P( 1+1,J) 
=P(I,J):NEXT:P(0,J)=TMP:NEXT:GOTO 320 
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450 IF Y$=" ( " THEN FOR J=0 TO 15:TMP=P(0,J):FOR 1=1 TO 7:P(I-1,J)=P(I,J) 
:NEXT:P(7,J)=TMP:NEXT:GOTO 320 

460 IF Y$="A" THEN F0RI=0 TO 7:TMP=P(I,0):FOR J=1 TO 15:P(I,J-1>=P<I,J) 
:NEXT:P(I,15)=TMP:NEXT:GOTO 320 

470 IF YJ^'Z" THEN FOR 1=0 TO 7:TMP=P(I,15):FOR J=14 TO 0 STEP-1:P(I,J+1 

)=P(I,J):NEXT:P(I,0)=TMP:NEXT:GOTO 320 

480 IF Y$="N" THEN RUN 

490 IF Y$="S" THEN 600 

500 IF Y$="L" THEN 700 

510 IF YS^'D« THEN 800 

520 IF Y$="E" THEN WINDOW SWAP 0,1:PAPER 5:PEN 4:CLS:PRINT:INPUT"PROGRAM 

MENDE";NM$:NM$=UPPER$(NM$):IF NH$= I 'J , ' THEN MODE 2:PEN 1:PAPER 0:END ELSE 
750 

530 GOTO 340 

540 LOCATE X+7,Y+9:PEN P(X,Y):PRINT CHR$(255);:RETURN 
550 PRINT CHR$(150);CHR$(154);CHR$(156):PRINT CHR$<149);" '';CHR$(149):PR 
INT CHR$(149);" ";CHR$(149):PRINT CHR$(147);CHR$(154);CHR$(153>;:RETURN 
560 ' 

570 1 

580 '***** SPRITE SICHERN ***** 

590 ' 

600 WINDOW SWAP 0,1:PAPER 5:PEN 4:CLS 

610 PRINT"SPR1TE SICHERN:»:PRINT: INPUT"NAME‘';NM$ 

620 OPENOUT NM$ 

630 FOR J=0 TO 15:FOR 1=0 TO 7:WR1TE #9,P(I,J):NEXT:NEXT 
640 CLOSEOUT 
650 GOTO 750 
660 ' 

670 1 

680 ****** SPRITE LADEN ***** 

690 ' 

700 WINDOW SWAP 0,1:PAPER 5:PEN 4:CLS 

710 PRINT"SPRITE LADEN:":PRINT: INPUT"NAME I, ;NM$ 

720 OPEN IN NM$ 

730 FOR J=0 TO 15:FOR 1=0 TO 7:INPUT #9,PCI,J):NEXT:NEXT 
740 CLOSEIN 

750 PAPER 0:PEN C:CLS:WINDOW SWAP 0,1:GOT0 320 
760 1 
770 1 
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780 '***** DATAS GENERIEREN UND SPEICHERN ***** 

790 • 

800 WINDOW SWAP 0,1:PAPER 5:PEN 4:CLS 

810 PRINT"DATA GENERATOR:»: PR INT: INPUT"NAME»;NM$ 

820 OPENOUT NM$ 

830 PRINT«,»30000 'DIES IST EIN AUTOMATISCH ERZEUGTES PROGRAMMFILE» 

840 Z=0:TMP=&C5 F4:GOSUB 880 

850 TMP=&C644:G0SUB 880 

860 CLOSEOUT 

870 GOTO 750 

880 FOR 1=0 TO 7 

890 D$=STR$(30001+Z)+"DATA »:F0R J=0 TO 3 

900 P$=STR$(PEEK(TMP+J+&800*!)):D$=D$+RIGHT$(P$,LEN(P$)•1)+»,» 

910 NEXT 

920 PRINT#9,LEFTS(D$,LEN(D$)-1>:Z=Z+1 
930 NEXT 
940 RETURN 


9.7.2 Das Organisieren mehrerer Bildschirmseiten 

Dieses Unterkapitel wendet sich in erster Linie an die Besitzer 
eines CPC 464 und 664, da der CPC 6128 mit den BANK- 
Befehlen |SCREENCOPY und |SCREENSWAP eine einfache, 
und zugleich effektive Programmierung mehrerer Bildschirmsei¬ 
ten aus der BASIC-Ebene heraus gestattet. 

Das Arbeiten mit zwei unabhängig von einander organisierten 
Bildschirmseiten - einer sichtbaren und einer unsichtbaren - ist 
in einigen Anwendungsbereichen obligatorisch. Beispielsweise 
kann auf der unsichtbaren Bildschirmseite ein beliebiges Objekt 
gezeichnet werden, während die sichtbare (aktuelle) 
Bildschirmseite das gleiche Objekt in einer anderen Form oder 
auf einer einer anderen Position auf dem Bildschirm zeigt. 
Wechselt man danach die Bildschirmseiten, kann ein flacker¬ 
freier Trickfilmeffekt erzeugt werden. Eine praktische Anwen¬ 
dung dieser Technik finden Sie übrigens in Kapitel 7.4. 

Eine weitere, nicht zu unterschätzende Anwendung ist das 
Speichern von zwei vollkommen verschiedenen und zugleich 
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kompliziert aufgebauten Grafiken. Möchte der Benutzer auf die 
unsichtbare Grafik zugreifen, muß das Programm lediglich die 
sichtbare gegen die unsichtbare Bildschirmseite austauschen und 
nicht erst die aktuelle Grafik löschen und danach die 
gewünschte mühevoll berechnen. 


Installation 

Die Rechner CPC 464 und CPC 664 beinhalten je vier RAM- 
Banks (0 bis 3). Eine Bank ist ein 16 KByte umfassender 
Speicherbereich, der mit der Größe des Bildschirmspeichers 
identisch ist. Aus diesem Grund ist auch Bank 3 (&COOO bis 
&FFFF) als Bildschirmspeicher reserviert. 

Theoretisch kann nun Bank 0, 1 oder 2 zu unserer alternativen 
Bildschirmseite definiert werden. In der Praxis ist aber in 
nahezu allen Fällen nur Bank 1 (&4000 bis &7FFF) sinnvoll, da 
die übrigen Banks Teile des Betriebssystem enthalten und bei 
deren Überschreibung das einwandfreie Funktionieren des 
Betriebssystems nicht mehr gewährleistet währe. 


Zugriff 

Das Kopieren der aktuellen (sichtbaren) Bildschirmseite in die 
alternative (unsichtbare) und umgekehrt ist in Z80-Maschinen- 
sprache extrem einfach, da wir dabei den Blocktransfer-Befehl 
"LDIR" verwenden können. Die beiden nachstehenden Pro¬ 
gramme erledigen diese Aufgabe für uns: 


## ## 
## COPY 1 TO 3 #» 

m DIESES PROGRAMM KOPIERT BANK 1 NACH BANK 3 ## 
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START: 

LD HL ,8.4000 

;HL = ERSTES BYTE VON 

BANK 1 


LD DE.&C000 

;DE = ERSTES BYTE VON 

BANK 3 


LD BC.&4000 

;KOPIERE DIE GESAMTE 

BANK 

1 

t 

LDIR 

;UND ZWAR JETZT 


t 

RET 

;FERTIG! 



II u II it 

## ** 

m COPY 3 TO 1 ## 

im DIESES PROGRAMM KOPIERT BANK 3 NACH BANK 1 ## 

m im 


START: ID HL.&C000 
LD DE,8.4000 
LD BC,&4000 


;HL = ERSTES BYTE VON BANK 3 
;DE = ERSTES BYTE VON BANK 1 
;KOPIERE DIE GESAMTE BANK 


LDIR 


;UND ZWAR JETZT 


RET 


.•FERTIG! 


Es gibt weiterhin drei Möglichkeiten, um Bank 1 gegen Bank 3 
zu vertauschen - eine rein softwaremäßige, eine hardwaremäßige 
und eine Kombination aus beiden (Jump-Vektor). Jede dieser 
Lösungen hat Vorteile und kann bei einem optimalen Einsatz 
nicht - oder nur schwer - durch eine andere ersetzt werden. 

Das softwaremäßige Verfahren, das wie Ihnen an dieser Stelle 
vorstellen, tauscht alle Bytes der beiden Banks nicht nur optisch, 
sondern real aus. Das bedeutet, daß sich nach Ablauf der fol¬ 
genden Routine der vollständige Informationsgehalt beider Banks 
verschoben hat. 
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## ## 

## SWITCH 1/3 ## 

m DIESES PROGRAMM VERTAUSCHT ALLE BYTES ## 
im VON BANK 1 UND BANK 2 ## 

## im 


LD HL,&C000 

;HL = ERSTES BYTE VON BANK 3 

LD DE.&4000 

;DE = ERSTES BYTE VON BANK 1 

LD A,(KL) 

;HOLE BYTE AUS BANK 3 

LD B,A 

;UND ZWISCHENSPEICHERN 

LD A,(DE) 

;H0LE BYTE AUS BANK 1 

LD (HL),A 

. ;UND TRANSFERIERE ES NACH BANK 3 

LD A,B 

;HOLE BYTE AUS ZWISCHENSPEICHER 

LD (DE),A 

;UND TRANSFERIERE ES NACH BANK 1 

INC HL 

;HOLE NAECHSTE BYTES 

INC DE 

. II 

* 

LD A,H 

;ALLE BYTES VERTAUSCHT? 

OR L 

• ii 

i 

JR NZ,SWITCH 

- ii 

i 

RET 

;FERTIG! 


Die hardwaremäßige Lösung wird mit einer direkten Manipula¬ 
tion am Video-Controller realisiert. Zu diesem Zweck muß in 
Register 12 des HD 6845 ein Wert abgelegt werden, der 
bestimmt, ab welcher Adresse der 16-KByte-Bereich des Bild¬ 
schirmspeichers beginnen soll. Mit der Z80-Seqyenz 


LD BC.&BCOO 
LD A, 12 
OUT (C),A 
ADD A,4 
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LD BC.&BDOO 
OUT (C),A 
RET 


oder der BASIC-Anweisung 


OUT &BC00,12:0UT &BD00.16 


auf die alternative Bildschirmseite (&4000) und mit 


LD BC.&BCOO 
LD A, 12 
OUT (C),A 
LD A,52 
LD BC.&BDOO 
OUT (C),A 
RET 


oder der BASIC-Anweisung 


OUT &BCOO,12:OUT &BD00,52 


wird zurück auf die normale Bildschirmseite (&C000) gewech¬ 
selt. Dabei ist zu beachten, daß nicht die Bytes beider Bild¬ 
schirmseiten vertauscht, sondern der Adreßbereich des Video- 
Controllers manipuliert wird. 

Die letzte Alternative ist, eine über den Vektor &BC06 zu 
erreichende Betriebssystemroutine anzuspringen. Diese Routine 
manipuliert das Register 12 des Video-Controllers in genau der 
gleichen Weise, wie wir oben gesehen haben. Zusätzlich werden 
alle Betriebssystemroutinen, die für die Grafikerstelleung bzw. 
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deren Berechnung verantwortlich sind, so initialisiert, daß sie 
von nun an die grafische Ausgabe auf die als Bildschirmbereich 
definierte Bank umleiten. 

Vor Ansprung des Jump-Vektors &BC06 muß das High-Byte 
der gewünschten Bank (&00, &40, &80 oder &C0) in den 
Akkumulator übergeben werden. Beachten Sie, daß bei der 
Übergabe anderer Parameter unerwünschte Nebeneffekte auf- 
treten können. 


9.7.3 Scrolling 

Srolling - das Verschieben des Bildschirminhalts - ist eine 
beliebte Technik, die insbesondere in der Spieleprogrammierung 
Verwendung findet. Die Entwicklung derartiger Scroll-Routinen 
ist jedoch oft mit sehr großem Aufwand verbunden und können 
nicht immer von reinen BASIC-Programmierern realisiert wer¬ 
den. Das Betriebssystem des Schneider-CPC bietet glücklicher¬ 
weise eine Fülle fertiger Scroll-Routinen, die ohne allzu großen 
Aufwand in BASIC - und selbstverständlich in Maschinenpro¬ 
gramme - eingebunden werden können. Doch bevor wir uns 
näher mit diesen ROM-Routinen befassen, möchten wir eine 
Technik vorstellen, die es ermöglicht, den gesamten Bildschirm¬ 
inhalt inklusive Rahmen in kürzester Zeit zu verschieben. 


Scrolling mittels H - und VSync- Impulsen 

Der Video-Controller des Schneider-CPC enthält zwei Register, 
die den Zeitpunkt des horizontalen bzw. vertikalen Syncron- 
Impulses bestimmen. Wird dieser vom Benutzer manipuliert, 
kann das ganze Bild auf seiner horizontalen oder vertikalen 
Ebene verschoben werden. 

Für die horizontale Verschiebung ist das Register zwei, für die 
vertikale das Register sieben verantwortlich. Der Default-Wert 
für Register zwei ist 46, der des Register sieben 30, d.h. daß 
nach Übergabe dieser Werte der Bildschirm in seiner normalen 
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Form erscheint. Höhere oder niedrigere Werte verschieben das 
Bild nach links oder rechts bzw. nach oben oder unten. 

Die beiden folgenden Programme zeigen eine praktische Anwen¬ 
dung dieser Scroll-Methode. Dabei ist bemerkenswert, daß das 
BASIC-Listing ohne Zuhilfenahme von Maschinensprache zu 
realisieren war. 


Das Assemblerlisting: 


100 ; ttttttttm 

110 ; Mt 

ttttttttt 

II II II II U 11 II II 

tttt 


120 ; Mt SCROLL- 

DEMO Mt 


130 ; Mt 16 
HO ; Mt 

10.86/TAV Mt 

Mt 


150 ; MtttttM 
160 ; 

170 ; 

mtm 

ii a ii u ii it ii ii 

MtttMttttttt 


180 

190 ; 

ORG 

&A000 


200 START: 

LD 

HL,&0207 

;PARAMETER FÜER VIDEO-CONTROLLER 

210 

220 ; 

LD 

B,0 

• ii 

» 

230 BEGIM: 

LD 

A,43 

;X-STARTWERT 

240 Hl: 

CALL 

HMOVE 

;HORIZONTALE BEWEGUNG 

250 

INC 

A 

;NAECHSTER VERSCHIEBEWERT 

260 

CP 

50 

;ENDE? 

270 

280 ; 

JR 

NZ,M1 

■ II 
f 
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290 

LD 

A,27 

Y-STARTWERT 

300 M2: 

CALL 

VMOVE 

VERTIKALE BEWEGUNG 

310 

INC 

A 

NAECHSTER VERSCHIEBEWERT 

320 

CP 

34 

ENDE? 

330 

JR 

NZ,M2 

11 

340 ; 




350 

LD 

A,49 

X-ENDWERT 

360 M3: 

CALL 

HMOVE 

HORIZONTALE BEWEGUNG 

370 

DEC 

A 

NAECHTER VERSCHIEBEWERT 

380 

CP 

42 

ENDE? 

390 

JR 

NZ,M3 

ii 

400 ; 




410 

LD 

A,33 

Y-ENDWERT 

420 M4: 

CALL 

VMOVE 

VERTIKALE BEWEGUNG 

430 

DEC 

A 

NAECHSTER VERSCHIEBEWERT 

440 

CP 

26 

ENDE? 

450 

JR 

NZ,M4 

ii 

460 




470 

JR 

BEGIN 

WIEDERHOLUNG 

480 ; 




490 HMOVE: 

LD 

B,&BC 

BC = ADRESS-REGISTER 

500 

OUT 

(C),H 

ADRESS-REGISTER MIT 2 LADEN 

510 

JR 

PSHDAT 

PARAMETER AUSGEBEN 

520 ; 




530 VMOVE: 

LD 

B,&BC 

BC = ADRESS-REGISTER 

540 

OUT 

(C),L 

ADRESS-REGISTER MIT 7 LADEN 

550 ; 




560 PSHDAT: 

CALL 

&BD19 

WARTE AUF STRAHLENRUECKLAUF 

570 

LD 

B.&BD 

BC = DATEN-REGISTER 

580 

OUT 

(C),A 

DATEN-REGISTER MIT PARAMETER LADEN 

590 

RET 


FERTIG! 

600 ; 




610 

END 


PROGRAMMENDE 
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Und nun das Listing für unsere BASIC-Freunde: 


100 FOR 1=43 TO 49:G0SUB 1S0:NEXT 
110 FOR 1=27 TO 33:GOSUB 160:NEXT 
120 FOR 1=49 TO 43 STEP-1:GOSUB 150:NEXT 
130 FOR 1=33 TO 27 STEP-1:GOSUB 160:NEXT 
140 GOTO 100 

150 CALL &BD19:0UT &BCOO,2:OUT &BD00,I:RETURN 
160 CALL &BD19:0UT &8COO,7:OUT &BD00,I:RETURN 
170 END 


Vertikales Scrollen 

Hierfür stellt uns das Schneider Betriebssystem eine Routine zur 
Verfügung, die mit dem Jump-Vektor &BC4D angesprungen 
werden kann. Die Routine ermöglicht es den kompletten Bild¬ 
schirm eine Zeile nach oben oder unten zu verschieben. Die 
Farbe der neu eingefügten Zeile (PAPER) ist dabei frei defi¬ 
nierbar. 

Die Scroll-Routine erwartet im B-Register einen 
Verschiebeparameter, der die Verschieberichtung festlegt. Ent¬ 
hält B den Wert Null, wird nach unten gescrollt. Jeder andere 
Wert bewegt den Bildschirm aufwärts. Der Akkumulator muß 
den Farbwert der neuen Zeile beinhalten. Dieser muß im Rah¬ 
men des aktivierten MODEs definiert werden. 


Horizontales Scrolling 

Eine Routine, die das horizontale Scrolling ermöglicht, wird 
über den Jump-Vektor &BC05 angesprungen.-Mit Ihr kann der 
komplette Bildschirm eine Zeile nach links verschoben werden, 
wobei die aus dem Bildschirm geschobene Zeile rechts angefügt 
wird. 

Die horizontale Verschieberoutine erwartet im HL-Register 
einen Verschiebeparameter, daß immer duch zwei teilbar sein 
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muß. Das bedeutet, der sich das relative Bit Null des L-Regi- 
sters im Low-Zustand befinden muß. 


Scrolling beliebiger Bildteile 

Eine Betriebssystem-Routine, die beliebige Bildteile verschiebt, 
soll als letztes vorgestellt werden. Über den Jump-Vektor 
&BC50 kann sie angesprungen werden und erwartet in den Z80- 
Registern folgende Parameter: 


A: Farbwert 

B: Verschieberichtung 

H: linke Spalte des Bildschirmbereichs 

L: oberste Reihe des Bildschirmbereichs 

D: rechte Spalte des Bildschirmbereichs 

E: unterste Reihe des Bildschirmbereichs 


Die Bildschirmbegrenzungen beziehen sich - wie gewohnt - auf 
die linke obere Ecke des Bildschirms. Ihr niedrigster Wert ist 
jedoch im Gegensatz zu BASIC nicht eins, sondern Null. 
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10. GSX - die grafische Systemerweiterung 


10.1 Was ist GSX? 

Man liest das Wort in jeder Fachzeitschrift; alle JOYCE-Besitzer 
kennen es; jeder möchte es in seinen eigenen Programmen ver¬ 
wenden, doch kaum jemand hat dazu die nötigen Hinter¬ 
grundinformationen. Gemeint ist GSX - das grafische Zauber¬ 
wort für die Schneider-Computer JOYCE und CPC 6128. 

Aber was genau ist GSX? Nun - GSX ist die Abkürzung für 
Graphics System Extension und bedeutet soviel wie grafische 
Systemerweiterung. Sie wurde von der Firma DIGITAL RE¬ 
SEARCH entwickelt und repräsentiert unter CP/M Plus ein völ¬ 
lig systemunabhängiges Grafik-Ein-/Ausgabesystem. Software, 
die unter GSX entwickelt wird, ist ungeheuer vielseitig, da sie 
unter anderem 

- auf allen CPM-Plus-Rechnern mit GSX-Erweiterung 
lauffähig 

- und nicht auf ein bestimmtes Ausgabegerät fixiert ist. 

Anmerkung: Es gibt Grafik-Kommandos, die sich nicht in 

gleicherweise auf alle Ausgabegeräte auswirken 
können. Ein Histogramm kann beispielsweise nur 
monochrom auf dem Bildschirm, jedoch farbig 
auf einem Plotter angezeigt werden. Solche 
hardwarebedingten Differenzen rufen keine 
Fehlermeldungen hervor. So kann die grafische 
Information in ungünstigen Fällen zwar ver¬ 
fälscht, aber niemals verloren gehen. 

Diese nahezu uneingeschränkte Portabilität eröffnet uns eine 
Programmflexibilität, die kaum meßbar ist. So ist es auch kein 
Wunder, daß sich GSX mit der Zeit zur Standard-Grafikerwei¬ 
lerung für Mikrocomputer entwickelt hat. 

Die Schneider-Betriebsanleitung gibt leider kaum über GSX und 
die damit verbundenen Grafikmöglichkeiten Ihres JOYCE oder 
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CPC-6128 Auskunft. Die meisten 6128-Besitzer wird dieser 
Umstand warscheinlich wenig stören, weil das Amstrad-BASIC 
über die vielfältigsten Grafikfunktionen verfügt. Dem JOYCE- 
Besitzer geht es in dieser Hinsicht sicherlich anders. In vielen 
Fachzeitschriften wird die außerordentliche Grafikauflösung sei¬ 
nes Rechners gelobt - gesehen hat er sie nie. Geht es Ihnen auch 
so? Dann kann ich Sie beruhigen, denn GSX kann sowohl in 
eigene Maschinenspracheprogramme, als auch ins Mallard-80- 
BASIC eingebunden werden. Wie? Nun - GSX ist, ähnlich wie 
CP/M, modular aufgebaut. Es beinhaltet beispielsweise die Pro¬ 
gramm-Module GDOS (Qraphic Device Qperating System) und 
GIOS (Graphic Input Qutput System). Letzteres entspricht einem 
oder mehrerer Devicetreiber 1 für Video-Display, Matrixdrucker 
oder Plotter. 

GDOS ist hingegen für die Entschlüsselung und Weiterleitung 
von GSX-Kommandos an die Device-Teiber verantwortlich. Die 
drei wichtigsten Aufgaben sind: 

- die Organisation der GSX-Aufrufe 

- das Laden der Devicetreiber 

- die treibergerechte-Konvertierung aller Parameter 

Durch die interne Struktur von CP/M und den darauf abge¬ 
stimmten modularen Aufbau von GSX ist es möglich, viele unter 
CP/M Plus geschriebende Programme um GSX zu erweitern. Die 
Umkonfigurierung bestehender Software ist denkbar einfach, da 
sich für diese Aufgabe ein spezielles Programm auf einer der 
mitgelieferten Systemdisketten befindet. Wie das genau funktio¬ 
niert, werden wir etwas später kennenlernen. 

An dieser Stelle möchte ich Ihnen alle mitgelieferten GSX- 
Systemdateien vorstellen. Die finden sie auf den Seiten zwei, 
drei und vier Ihrer Systemdisketten. 


1 


Geräte-Steuerprogramm, das Eum Betreiben eines Ausgabegerätes 
unbedingt erforderlich ist. 
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Sowohl JOYCE als auch CPC-6128 benötigen die Programme: 

GSX.SYS .Dieses Programm enthält GDOS - die ei¬ 

gentliche Grafikerweiterung. 

ASSIGN.SYS beinhaltet bis zu 5 Devicetreiber-Namen 

und ihre logischen Devicenummern. Diese 
Datei ist im ASCII-Format abgespeichert 
und kann somit von Ihnen einfach manipu¬ 
liert werden. 

GENGRAF.COM Ein Programm, das bestehende Programme 
so umkonfiguriert, daß GSX automatisch 
mit ihnen geladen werden kann. 

DDHP7470.PRL Devicetreiber, der es ermöglicht, einen HP- 
kompatiblen Plotter an ihren JOYCE anzu¬ 
schließen. 


Folgende GSX-Module finden nur auf dem JOYCE Verwendung: 

DDSCREEN.PRL Devicetreiber, der für die Ansteuerung des 
Displays verantwortlich ist. 

DDFXLR8.PRL Low-Resolution-Devicetreiber für den mit¬ 
gelieferten JOYCE-Matrixdrucker. 

DDFXHR8.PRL High-Resolution-Devicetreiber für den mit¬ 
gelieferten JOYCE-Matrixdrucker. 


Die folgenden Programme befinden sich nur auf dem CPC-6128: 

Eine "Read me" File, dessen Inhalt mittels 
dem TYPE-Befehl angezeigt werden kann 
und alle Namen der mitgelieferten Device¬ 
treiber beinhaltet. 


DRIVERS.GSX 
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DDFXLR7.PRL 

DD-DMP1.PRL 

DDSHINWA.PRL 

DDMODEO.PRL 

DDMODE1.PRL 

DDMODE2.PRL 


Low-Resolution-Devicetreiber für Epson 
und Epson-kompatible Matrixdrucker. 

Devicetreiber für den Amstrad DMP-1- 
Drucker. 

Devicetreiber für alle Drucker, die mit 
einem Shinwa-Mechanismus arbeiten. 

MODE~0~Devicetreiber für den Bildschirm. 

MODE 1-Devicetreiber für den Bildschirm. 

MODE 2-Devicetreiber für den Bildschirm. 


10.2 GSX-Installation 

Das Installieren von GSX wird durch den eingangs beschiebenen 
modularen Aufbau stark vereinfacht. Im folgenden Beispiel soll 
GSX ins Mallard-80-BASIC implementiert werden. Dieses Pro¬ 
gramm wurde nicht rein zufällig ausgewählt, da jeder JOYCE- 
Besitzer dieses BASIC besitzt, und die Installation eine Vorraus¬ 
setzung für GSX-Aufrufe aus der BASIC-Ebene sind. 


GSX-Installation in Verbindung mit Mallard BASIC 

1. Formattieren Sie eine Leerdiskette. 

2. Fertigen Sie darauf mittels PIP eine Kopie von Mallard- 
BASIC an. 

Kopieren Sie dazu die Programme GSX.SYS, ASSIGN.SYS, 
GENGRAF.COM und mindestens einen Devicetreiber. 
(Device-Teiber sind durch die Extension .PRL kenntlich 
gemacht.) 


3. 
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4. Geben Sie nun über die Tastatur den Befehl GENGRAF 
BASIC ein. Dieser Befehl implementiert GSX automatisch 
in das hinter GENGRAF stehende Programm (in diesem 
Fall BASIC). Nun kann das Programm GENGRAF.COM 
von Ihrer Kopie gelöscht werden, da es nur für die GSX- 
Implementierung, und nicht für den eigentlichen Pro¬ 
grammablauf Verwendung findet. 

Alle von ihnen verwendeten Devicetreiber müssen nun in der 
Systemdatei ASSIGN.SYS angemeldet werden. Das Modifizieren 
dieser Datei ist relativ einfach, da sie im ASCII-Format abge¬ 
speichert ist. Sie können sie beispielsweise mit dem mitge¬ 
lieferten Programm RPED editieren. Bereits angemeldete Treiber 
zeigt die Befehlsfolge 


TYPE ASSIGN.SYS 


direkt auf dem Bildschirm an. Die Datei ASSIGN.SYS wurde 
von Schneider in sinnvoller Weise vordefiniert. Sie beinhaltet 
bereits alle mitgelieferten Devicetreiber. Das voreingestellte 
Format sieht folgendermaßen aus: 


21 §:DDFXHR8 

22 §:DDFXLR8 
11 §:DDHP7470 
01 § DDSCREEN 


Am Anfang jeder Zeile erkennen wir eine zweistellige logische 
Devicenummer. Durch sie kann der ihr zugewiesende Treiber 
vom Anwenderprogramm aus aktiviert werden. Üblicherweise 
werden die Devicenummern 


01 bis 10 für Displays 

11 bis 20 für Plotter 

und 21 bis 30 für Drucker 
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verwendet. Aus Gründen der Kompatibilität ist es sinnvoll, sich 
an diese Regelung zu halten. Ist nur ein Gerät einer Kategorie 
angemeldet, wählt man im allgemeinen den niedrigsten dafür 
vorgesehenden Wertebereich. Hinter der Devicenummer folgt der 
Name des Laufwerks (mit anschließendem Doppelpunkt), auf 
das sich der zu ladende Devicetreiber befindet. Anstelle eines 
Laufwerksnamen kann auch das Paragraphenzeichen "§" verwen¬ 
det werden. Es veranlaßt GDOS, den betreffenden Devicetreiber 
auf allen unter CP/M angemeldeten Laufwerken zu suchen und 
- falls gefunden - zu laden. 

Bitte beachten Sie bei einer eventuellen Modifikation, daß die 
Devicetreiber nach absteigender Dateigröße in ASSIGN.SYS ein¬ 
geordnet werden müssen. Die Größe Ihrer Dateien können mit 
dem CP/M-Plus-Befehl 


dir d:filename.prl Äsizeü 


ermittelt werden. Eine fertig erstellte ASSIGN.SYS-Datei kann 
maximal fünf Devicetreiber enthalten. 

So - damit wäre die GSX-Installation beendet. Kehren Sie zu 
CP/M zurück und starten Sie unser neues, GSX taugliches 
BASIC, indem Sie wie gewohnt 


A>BASIC 


über das Keybord Ihres JOYCE eingeben, und die Eingabe mit 
der <RETURN>-Taste bestätigen. Falls Sie alles richtig gemacht 
haben, präsentiert sich Mallard BASIC ab jetzt mit der Meldung: 
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GSX-80 1.1 01 Oct 83 Serial No 5000-1232-654321 

Copyright (C) 1983 

Digital Research, Inc. All rights reserved 


Mallard-80 BASIC with Jetsam Version 1.29 
(c> Copyright 1984 Locomotive Software Ltd 
All rights reserved 

17255 free bytes 

Ok 


Vielleicht ist Ihnen aufge'fallen, daß uns nach der GSX-ImpIe- 
mentierung statt der üblichen 31597 nur noch 17255 1 Byte für 
unsere BASIC-Programme zur Verfügung stehen. Was ist pas¬ 
siert? GENGRAF.COM hat eine temporäre Datei mit einem 
kleinen GSX-Lader und BASIC.COM generiert. Danach wurde 
Mallard-BASIC gelöscht und temporäre Datei in BASIC.COM 
umbenannt. 

Wenn Sie von nun an BASIC.COM auf rufen, wird zunächst der 
GSX-Lader in den Speicher transferiert und gestartet. Dieser 
lädt den ersten in ASSIGN.SYS spezifizierten Devicetreiber in 
den oberen RAM-Bereich. Weiterhin schiebt er das Programm 
GSX.SYS unmittelbar vor den Treiber und installiert somit 
GDOS. Dabei wird die BDOS-Funktionsadresse &0005 (Hex) in 
der Zeropage derart verbogen, daß sich alle Systemaufrufe 
zwangsläufig über GDOS verzweigen müssen. Dort wird auto¬ 
matisch bei jeden Funktionsaufruf entschieden, ob es sich um 
einen GSX- oder BDOS-Befehl handelt. Falls letzteres der Fall 
sein sollte, verzweigt GSX ohne Umwege ins normale BDOS. 
Zum Schluß transferiert der GSX-Lader BASIC.COM in den 
normalen Speicherbereich (&0100 HEX). 


i 


Dieser Wert bezieht sich auf die originale ASSIGN.SYS Datei 










Abb. 25: 


G SX- Speicherorganisation 
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Wie wir an Abbildung 25 deutlich erkennen können, handelt es 
sich bei GSX.SYS um ein relokatibeles Programm-Modul, d.h., 
daß es nicht in einen fest definierten RAM-Bereich geladen 
werden muß. Da GSX - wie alle kommerziellen CP/M-Pro- 
gramme - in 8080-Maschinensprache geschrieben ist, und somit 
keine relativen Jumps erlaubt, wird hier mit einem kleinen 
Trick gearbeitet. Im GSX-Lader existiert nämlich eine kleine 
Routine, die den 8080-Code so manipuliert, daß GSX.SYS in 
jeden beliebigen Speicherbereich, dessen 1 Low-Byte der 
Startadresse &00 ist, geschoben werden kann. Zu diesem Zweck 
wird ein entsprechender Offset zu den High-Bytes der 
Zieladressen aller Lade-, Jump- und Call-Befehle addiert. Die 
Low-Bytes bleiben von dieser Methode unberührt. Die so 
erreichte Relokatibelität ist sehr wichtig, da die Länge des direkt 
auf GSX.SYS folgenden Devicetreibers nicht immer gleich groß 
sein muß. 

Übrigens kann GSX nicht mehrere Devicetreiber gleichzeitig 
verwalten. Falls mehrere Ein-/Ausgabegeräte gesteuert werden 
sollen, muß die Software den jeweils benötigte Treiber während 
des Programmablaufs nachladen. Da in der Initialisierungsphase 
der erste in ASSIGN.SYS definierte Devicetreiber in den Spei¬ 
cher gebracht wird, reserviert GSX folglich einen an diesem 
Treiber orientierten RAM-Bereich. Diese Tatsache erklärt, 
warum die in ASSIGN.SYS befindlichen Treibernamen nach 
absteigender Speichergröße sortiert werden müssen. Es liegt auf 
der Hand, daß beim Nachladen eines Treibers, der größer ist als 
der für ihn reservierte Speicherplatz, ein Teil des Systembereichs 
Überschreiben und somit zerstört wird. Ein solches Phänomen 
hätte denn mit größter Warscheinlichkeit einen unweigerlichen 
Programmabsturz zur Folge. 


10.3 Parameterübergabe 

Alle GSX-Routinen werden über die geänderte Zeropage- 
Adresse &0005 (Hex) aufgerufen. In diesem Zusammenhang 
erwartet GDOS immer das Steuerwort 115 (&73 Hex) im C- 
Register, weil alle anderen Werte als BDOS-Kommandos abgear¬ 
beitet werden. Im DE-Register muß hingegen der 16-Bit-Start- 
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wert eines 10-Byte langen Datenblocks enthalten sein. Diese 
Daten repräsentieren seinerseits wieder fünf Startadressen der 
eigentlich von GSX benötigten Parameterblöcke. 

Diese auf den ersten Blick etwas komplizierten Zusammenhänge, 
sollen die folgende Tabelle verdeutlichen: 


GSX-CALL 

&0005 

C 

DE 

GDOS-Steuerwort (&73) 

Startadresse eines 10-Byte Datenblock 

(DE)+&00 

(DE)+&02 

(DE)+&04 

(DE)+&06 

(DE)+&08 

Startadresse des CONTROL-Parameterblocks 
Startadresse des SETPAR-Parameterblocks 
Startadresse des SETPOS-Parameterblocks 
Startadresse des GETPAR-Parameterblocks 
Startadresse des GETPOS-Parameterblocks 


Wenn wir die Tabelle näher betrachten, erkennen wir getrennte 
Ein- und Ausgaberegister einer Variablengattung. Für die Para¬ 
meterübergabe finden nur die Eingaberegister Verwendung. Die 
Ausgaberegister werden von den GSX-Routinen beeinflußt. 
Dessen Werte können nach einem GSX-Aufruf in weitere 
Berechnungen einbezogen werden. 

Der CONTROL-Parameterblock ist für die interne Verwaltung 
aller GSX-Routinen verantwortlich. CONTROL 0, 1 und 3 ver¬ 
langen Parameter, die von Ihnen definiert werden müssen. 
CONTROL 2, 4 unf 5 liefern hingegen nach einem GSX-Aufruf 
wichtige Informationen. 


CONTROL(O) enthält den Funktionscode, mit der die aufzu¬ 
rufende GSX-Routine selektiert wird. 

CONTROL(l) enthält die Anzahl der Punkte, denen Koordi¬ 
naten zugewiesen wurden. 
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CONTROL(2) wird von GSX beeinflußt und enthält nach 
dem Aufruf einer Grafikroutine die Anzahl 
der Parameter, die in GETPAR an den Be¬ 
nutzer übermittelt werden. 


CONTROL(3) enthält die Anzahl der Parameter, die in SET- 
PAR an GSX übergeben werden sollen. 


CONTROL(4) wird von GSX beeinflußt und enthält nach 
dem Aufruf einer Grafikroutine die Anzahl 
der Punkte, dessen Koordinaten in GETPOS 
zurückgemeldet werden. 

CONTROL(5) wird von GSX beeinflußt und enthält einen 
von Routine zu Routine unterschiedlichen 
Wert. 


Die SETPAR und GETPAR Register enthalten Informationen, 
die bestimmen, wie die gewählte GSX-Funktion reagieren soll 
und reagiert hat. 

SETPOS und GETPOS beziehen sich auf Spezifikation einer 
Funktion im Koordinatensystem. SETPOS erwartet die 
Koordinatenübergabe in der Form xl, yl, x2, y2 ... GETPOS 
gibt wichtige Koordinaten in der selben Reihenfolge an den 
Benutzer zurück. Da GSX eine universelle Grafikerweiterung für 
Computer ist, und dem zufolge die Ein-/Ausgabeparameter 
nicht auf ein bestimmtes oder eine bestimmte Anzahl von Aus¬ 
gabegeräten fixiert sind, erwartet GSX alle Koordinaten in 
einem allgemein gültigen Definitionsbereich. Dieser Bereich 
umfaßt die Werte &0000 bis &7FFF (0 bis 32767). Um eine 
derartige allgemeine Koordinate zu ermitteln, muß der Pro¬ 
grammierer die X- und Y-Position der gewünschten Koordinate 
mit je einer Konstanten multiplizieren. Diese Konstanten werden 
ermittelt, indem jeweils 32767 durch die maximale X- und Y- 
Auflösung des Ausgabegeräts geteilt wird. 

Jedes Parameterblock-Element wird in Form einer 2-Byte-Inte- 
ger-Variable gespeichert. Diese sinnvolle Datenorganisation 
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erleichtert uns erfreulicher weise die Parameterübergabe in 
BASIC, da wir die benötigten Parameter herkömmlichen Integer- 
Variablen zuweisen können. 

Anmerkung: Die nun folgende Beschreibung zeigt eine mög¬ 

liche Parameterübergabe aus der BASIC-Ebene 
auf. Der reine Z80-Programmierer sollte jedoch 
diesen Teil nicht überspringen, weil er viele 
wertvolle Informationen enthält. 

In BASIC können Sie neben den normalen numerischen Vari¬ 
ablen auch sogenannte Integer-Variablen definieren. Das hat den 
Vorteil, daß das BASIC-Betriebsysytem für eine solche Variable 
nur zwei Byte im Speicher reservieren muß. Und genau diese 
Variablen sind für unser Vorhaben wie geschaffen. Sie haben 
nämlich das Format, das GSX in den Parametertabellen erwartet. 
Integer-Variablen werden übrigens entweder mit dem Suffix % 
kenntlich gemacht, oder durch die DEFINT-Anweisung als sol¬ 
che vereinbart. 

Die Integer-Variablen sollten in jedem GSX-BASIC-Programm 
wie folgt definiert werden: 


DIM CONTROL%(5>,SETPAR%(79),SETPOS%<1,74),GETPAR%(44),GETPOS%(1,74) 


Bitte beachten Sie bei der Definition, daß das BASIC-Kom.- 
mando OPTION BASE 1 in Zusammenhang mit GSX nicht im 
Programm auftauchen darf. OPTION BASE 1 manipuliert näm¬ 
lich den internen Variablen-Indexzähler in der Form, daß sein 
niedrigster Wert nicht Null, sondern Eins ist. 

Aber wie sollen jetzt die Parametertabellen an GSX übergeben 
werden? Mallard-BASIC stellt uns diesbezüglich zwei verschie¬ 
dene Befehle zur Verfügung: den USR und den CALL-Befehl. 
Der USR-Befehl erweist sich auf den zweiten Blick als unge¬ 
eignet. Mit seiner Hilfe können zwar problemlos Maschinenpro¬ 
gramme aufgerufen werden; die Parameterübergabe beschränkt 
sich jedoch leider nur auf ein Datenelement. Bei dem CALL- 
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Befehl sieht die ganze Sache ganz anders aus. Er ermöglicht uns 
auf einfachste Weise die Übermittlung mehrerer Parameter die 
folgendermaßen an die Register der Z80-CPU weitergeleitet 
werden. 

Bei 3 oder weniger Parameter ist die Parameterübergabe wie 
folgt: 


- HL enthält die Adresse von Parameter Eins 

- DE enthält die Adresse von Parameter Zwei 1 

- BC enthält die Adresse von Parameter Drei 1 


Da in der Regel mehr als 3 Werte an GSX transferiert werden, 
ist es programmtechnisch sinnvoller, wenn wir immer annehmen, 
daß mindestens 4 Parameter zur Übergabe definiert wurden, Die 
Adressen von 4 oder mehr Parametern werden folgendermaßen 
an die Register übermittelt: 


- HL enthält die Adresse von Parameter Eins 

- DE enthält die Adresse von Parameter Zwei 

- BC enthält die Adresse eines Datenblocks, der die Adressen 

der Parameter drei bis n-1 in aufsteigender Reihenfolge 
beinhaltet. 


Aus Kapitel 10.3 ging hervor, daß GSX die Startadressen der 
benötigten Parameterblöcke in einer Tabelle erwartet, dessen 
Startadresse sich wiederum im DE-Register befindet. Wenn wir 
uns die Organisation des CALL-Befehls näher betrachten, stellen 
wir fest, daß die Adressen des dritten bis n-ten Datenelements 
in einem derartigen Datenblock verwaltet werden. Statt des DE- 
Registers zeigt allerdings das BC-Register auf dessen 
Startadresse. 


i 


Falls der Parameter vorhanden ist 
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Um den CALL-Befehl effektiv einsetzen zu können, müssen wir 
seinen Variablenblock um zwei vorranstehende Dummy-Ele¬ 
mente erweitern. Ein Dummy-Element ist eine Variable, deren 
Inhalt zwar beliebig sein kann, ihr Vorhandensein jedoch für die 
korrekte Ausführung der Funktion untentberlich ist. Beim Auf¬ 
ruf von 


CALL Adresse,dun»ny,dunmy,C0NTR0L%<5),SETPAR)S<79),SETP0S%<1,74),GETPAR%(4 
4>,GETP0S%(1,74) 


wird zwangsläufig die Adresse des ersten Parameterblocks in 
dem vom BC-Register adressierten Datenblock abgelegt. HL und 
DE enthalten die völlig bedeutungslosen Adressen unserer 
Dummy-Elemente. 

Der BDOS-Funktionsaufruf &0005 darf jedoch aus folgenden 
Gründen nicht direkt aus der BASIC-Ebene angesprungen wer¬ 
den: 


1. Die Adresse der Paramterblock-Startadressen-Tabelle be¬ 
findet sich nicht im DE-Register. 

2. Das GDOS-Steuerwort &73 befindet sich nicht im C-Re- 
gister. 


Es muß folglich zuerst eine kleine Maschinenroutine angesprun¬ 
gen werden, die diese beiden Punkte für uns erledigt. Eine der¬ 
artige Routine soll Ihnen an dieser Stelle vorgestellt werden: 


PUSH BC 
POP DE 
LD C.673 
JP £0005 


Startadresse nach DE kopieren 

II 

GDOS-Steuerwort definieren 
GDOS Funktionsaufruf 
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Nun brauchen wir nur noch unsere Maschinenroutine ins Mal- 
lard-BASIC zu implementieren. Zu diesem Zweck ist es notwen¬ 
dig, sieben Byte im Speicher Ihres Schneider zu reservieren. 
Ansonsten kann leicht der Fall eintreten, daß BASIC unsere 
Maschinenroutine überschreibt. Das Reservierung der benötigten 
Byte kann auf einfache Weise mit den beiden BASIC-Befehlen 
MEMORY und HIMEM realisiert werden. HIMEM ermittelt die 
letzte im oberen RAM-Bereich benutzte Adresse des BASIC- 
Programmspeichers. MEMORY ist hingegen für die Definition 
der obersten von BASIC benutzten Adresse zuständig. Da in 
BASIC fast alle Befehle beliebig kombiniert werden können, 
werden durch die Sequenz 


MEMORY HIMEM-7 


die benötigten sieben Bytes im BASIC-Speicher reserviert; 
gleichzeitig erhält HIMEM einen neuen Wert. Jetzt können wir 
gefahrlos unsere Maschinenroutine in den Speicher POKEen. 


M A II II » » tl tl [I it II J» fl II 11 if 

1U #########»»#»# 

20 ## m 

30 ## GSX-INIT ## 

40 ## ## 

60 ' 

70 MEMORY HIMEM-7 
80 FOR I%=1 to 7 
90 READ GSX% 

100 POKE HIMEM+I,GSX% 

110 NEXT I 

120 DATA &C5,&D1,&0E,&73,&C3,&05,&00 

130 DIM CONTROL%(5),SETPARX(79),SETP0S%(1,74),GETPAR%(44),GETP0S%( 
1,74) 

140 ' 

150 REM *** Hauptprogranm *** 
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10.4 Der GSX-Befehlssatz 

In dem nun folgendem Teil wird nacheinander der gesamte 
GSX-Befehlssatz vorgestellt. Es handelt sich dabei um 20 
Befehle, die neben den eigentlichen Grafikfunktionen auch 
Routinen für verwaltungstechnische Aufgaben enthalten. Alle 
Befehle sind dabei zwecks Übersichtlichkeit in vier Kategorien 
unterteilt: 


1. Routinenname und Kurzbeschreibung ihrer Funktion 

2. Eingabeparameter 

3. Ausgabeparameter 

4. Funktionsbeschreibung 


GDOS unterscheidet - wie eingangs erwähnt - die einzelnen 
Befehle am Inhalt des CONTROL(0)-Registers. Es muß vor 
jedem GSX-Aufruf einen entsprechende Befehlsnummer ent¬ 
halten. Diese routinenspeziefische Befehlsnummer ist stehts in 
der Routinenbeschreibung unter der Kategorie Eingabe-Para¬ 
meter zu finden. Bitte beachten Sie, daß sowohl an die Eingabe¬ 
ais auch an die Ausgabe-Register nur ganzahlige Werte überge¬ 
ben werden können. 
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LOADDR 

Neuen Devicetreiber laden 


Eingabeparameter: 

CONTROL(O) 1 
CONTROL(l) 0 
CONTROL(3) 10 


SETPAR(O) 

SETPAR(l) 


SETPAR(2) 

SETPAR(3) 


SETPAR(5) 

SETPAR(6) 

SETPAR(7) 


SETPAR(8) 


log. Nummer des zu ladenden Devicetreibers 
Linienform: 

1 = durchgehend 

2 = kurze Striche 

3 = gepunktet 

4 = Strich-Punkt 

5 = lange Striche 

6 = Strich-Punkt-Punkt 

(außer DDSCREEN) 

Linienfarbe 0 oder 1 
Form des Markers: 

1 = . 

2 = + 

3 = * 

4 = O 

5 = x 

wird im Zusammenhang mit LOADDR nicht 

verwendet 

Textfarbe: 

0 oder 1 
Füll-Modus: 

0 = skelettieren 
(nur Rahmen 
zeichnen) 

1 = alles ausfüllen 

2 = mit Füllmuster 

3 = mit Schraffur 
Schraffur-Index: 

1 bis 6 (siehe Treiberspezifikationstabelle) 
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SETPAR(9) Füllfarbe: 

0 oder 1 


Ausgabeparameter: 


CONTROL(2) 

CONTROL(4) 

GETPAR(O) 

GETPAR(l) 

GETPAR(2) 

GETPAR(3) 

GETPAR(4) 

GETPOS(l.O) 

GETPOS(0,2) 

GETPOS(l,4) 


enthält nach dem Aufruf der GSX-Routine die 
Anzahl der Parameter, die in GETPAR an den 
Benutzer übermittelt werden, 
enthält nach dem Aufruf einer GSX-Routine 
die Anzahl der Punkte, dessen Koordinaten in 
GETPOS übermittelt werden. 

enthält die horizontale Auflösung im Bereich 0 
bis 32767. 

enthält die vertikale Auflösung im Bereich 0 
bis 32767. 
nicht definiert. 

enthält die horizontale Ausdehnung eines Pixels 
in Mikrometern. 

enthält die vertikale Ausdehnung eines Pixels 
in Mikrometern. 

die kleinstmöglich darstellbare Zeichengröße 
des Ausgabegerätes. 

die kleinstmöglich darstellbare Linienstärke des 
Ausgabegerätes. 

die kleinstmöglich darstellbare Marker-Größe 
des Ausgabegerätes. 


Funktion: LOADDR lädt einen neuen Devicetreiber, der 

in ASSIGN.SYS definiert sein muß, in den 
dafür reservierten Speicherbereich. Der alte 
Devicetreiber wird durch bei diesem Vorgang 
überschrieben. 


Verwandte Befehle: Closedr 
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CLOSEDR 

Aktivierten Devicetreiber schließen 


Eingabeparameter:' 


CONTROL(O) 

CONTROL(l) 

CONTROL(3) 


2 

0 

nicht definiert 


Ausgabeparameter: 

keine 


Funktion: CLOSEEJR beendet die Arbeit mit einem Trei¬ 

ber ohne die durch andere Grafik-Kommandos 
gesetzten Parameter zu zerstören. 


Verwandte Befehle: Loaddr 
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CLG 

Grafik löschen 


Eingabeparameter: 


CONTROL(O) 

CONTROL(l) 

CONTROL(3) 


0 

nicht definiert 


Ausgabeparameter: 

keine 


Funktion: CLG löscht je nach verwendetem Devicetreiber 

den Bildschirm oder gibt an den Drucker ein 
Form-Feed aus und zieht somit ein neues Blatt 
Papier ein. 


Verwandte Befehle: keine 
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OUTPUT 

Grafik-Puffer auslesen 


Eingabeparameter: 


CONTROL(O) 

CONTROL(l) 

CONTROL(3) 


4 

0 

nicht definiert 


Ausgabeparameter: 

keine 


Funktion: Während der Bildschirmtreiber DDSCREEN 

alle grafischen Vorgänge direkt sichtbar macht, 
werden alle Grafikinformationen, die an den 
Drucker ausgegeben sollen, zwischengepuffert. 
Das Kommando OUTPUT gibt an GSX den 
Befehl, diesen Zwischenspeicher auszulesen, 
und das Ergebnis auf dem Drucker auszuge¬ 
ben. Falls der Bildschirmtreiber DDSCREEN 
aktiviert sein sollte, wird dieses Kommando 
ignoriert. 


Verwandte Befehle: keine 
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DRAW 

Linie(n) zeichnen 


Eingabeparameter: 

CONTROL(O) 6 

CONTROL(l) Anzahl der in SETPOS definierten Eckpunkte 
CONTROL(3) nicht definiert 

SETPOS(0,0...74) XI bis Xn 

SETPOS(1,0...74) Y1 bis Yn 


Ausgabeparameter: 

keine 


Funktion: 


DRAW verbindet die in SETPOS definierten 
Punkte mit einer Linie. Sie zeichnet je nach 
Parameterdefinition 

einen Punkt (CONTROL(l)=l), 
eine Linie (CONTROL(l)=2) 
oder ein Polygon (CONTROL(l)>2). 


Verwandte Befehle: Linestyle, Linecolor 
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SETMKR 
Marker setzen 


Eingabeparameter: 

CONTROL(O) 7 

CONTROL(l) Anzahl der in SETPOS definierten Punkte 
CONTROL(3) nicht definiert 

SETPOS(0,0...74) XI bis Xn 

SETPOS(1,0...74) Y1 bis Yn 


Ausgabeparameter: 

keine 


Funktion: SETMKR bringt einen oder mehrere Marker 

(Symbole), dessen Koordinaten in SETPOS de¬ 
finiert werden müssen, auf den Bildschirm 
oder in den Drucker-Eingabepuffer. 


Verwandte Befehle: Mkrstyle, Mkrsize, Mkrcolor 
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TEXT 

Text zum Ausgabegerät schicken 


Eingabeparameter: 

CONTROL(O) 8 
CONTROL(l) 1 

CONTROL(3) Anzahl der Zeichen 

SETPAR(0...79) Text 

SETPOS(0,0...74) XI bis Xn 

SETPOS(1,0...74) Y1 bis Yn 


Ausgabeparameter: 

keine 


Funktion: TEXT sendt die in SETPAR definierten Zei¬ 

chen zum angegebenen Ausgabegerät. Die Po¬ 
sition des ersten Zeichens muß dabei mit SET¬ 
POS festgelegt werden. Mit dem TEXT-Befehl 
können alle 256 Zeichen der Schneider ausge¬ 
geben werden. Die Zeichen 0 bis 31 werden in 
diesem Zusammenhang nicht als Control- 
Codes, sondern als Sonderzeichen interpretiert. 
Jeder Devicetreiber kennt einen speziefischen 
Schreibmodus. Dieser differiert zwischen 
Bildschirm- und Druckerausgabe. Auf dem 
Bilschirm wird der Hintergrund mit der ge- 
sammte Zeichenmatrix überschieben (AND- 
Modus). Drucker oder Plotter können hingegen 
aus technischen Gründen nur die gesetzten 
Punkte eines Zeichens zu Papier bringen (OR- 
Modus). Diese Modi können nicht vom Benut¬ 
zer geändert werden. 


Verwandte Befehle: Txtsize, Txtdir, Txtcolor 
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FILLPOLY 

Ausgefülltes Polygon zeichnen 


Eingabeparameter: 

CONTROL(O) 9 

CONTROL(l) Anzahl der in SETPOS definierten Eckpunkte 
CONTROL(3) nicht definiert 

SETPOS(0,0...74) XI bis Xn 

SETPOS( 1,0...74) Y1 bis Yn 


Ausgabeparameter: 

keine 


Funktion: FILLPOLY verbindet - änlich wie DRAW - 

die in SETPOS definierten Eckpunkte mit 
einer Linie. Entgegen der DRAW-Funktion 
wird jedoch der erste mit dem letzten Punkt 
mittels einer Linie verbunden, und das so ent¬ 
standene Gebilde ausgefüllt. GSX ermöglicht 
leider nicht das Ausfüllen beliebiger Flächen. 
Da jedoch bis zu 75 Eckpunkte definiert wer¬ 
den können, ist sogar die Darstellung eines 
ausgefüllten Kreises ohne weiteres möglich. 


Verwandte Befehle: Bar, Fillstyle, Fillindex, Fillcolor 
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BAR 

Rechteck zeichnen 

Eingabeparameter: 

CONTROL(O) 

CONTROL(l) 

CONTROL(3) 

11 

2 

nicht definiert 

SETPOS(O.O) 

SETPOS(1,0) 

SETPOS(0,1) 

SETPOS(l.l) 

XI Koordinate der linken unteren Ecke 

Y1 Koordinate der linken unteren Ecke 

X2 Koordinate der rechten oberen Ecke 

Y2 Koordinate der rechten oberen Ecke 

Ausgabeparameter: 

keine 


Funktion: 

Mittels der Funktion BAR kann auf einfache 
Weise ein Rechteck konstruiert werden, da nur 
zwei Eck-Koordinaten zur Definition angege¬ 
ben werden müssen. Die so erzeugten 
Rechtecke können auf vielfältigste Weise aus¬ 
gefüllt werden (siehe dazu auch FILLCOLOR, 
FILLINDEX, FILLSTYLE). 


Verwandte Befehle: Fillpoly, Fillstyle, Fillindex, Fillcolor 


GSX - die grafische Svstemerweiterune 


521 


TXTSIZE 

Zeichengröße bestimmen 


Eingabeparameter: 


CONTROL(O) 12 
CONTROL(l) 1 
CONTROL(3) nicht definiert 


SETPOS(0,0) 0 

SETPOS(l.O) Textgröße (1 bis 12) 


Ausgabeparameter: 

keine 


Funktion: Mit TXTSIZE kann die Zeichengröße des 

auszugebenden Textes bestimmt werden. Wenn 
der Bildschirm-Treiber DDSCREEN Verwen¬ 
dung findet, wird dieses Kommando ignoriert, 
da er nur Zeichengröße "1" verarbeiten kann. 


Verwandte Befehle: Text, Txtdir, Txtcolor, Mkrsize 
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TXTDIR 

Textrichtung festlegen 


Eingabeparameter: 


CONTROL(O) 

CONTROL(l) 

CONTROL(3) 


13 

0 

nicht definiert 


SETPAR(O) 


1 = 0 Grad 

2 = 270 Grad 

3 = 180 Grad 

4 = 90 Grad 


Ausgabeparameter: 

keine 


Funktion: TXTDIR legt die Ausgaberichtung eines Textes 

fest. Diesbezüglich stehen vier in jeweils 90- 
Grad-Intervallen verschobene Richtungen zur 
Verfügung. Sie müssen anhand von Funktions¬ 
nummern, die den entsprechenden Rotations¬ 
winkel angeben, übermittelt werden. TXTDIR 
ist nicht im Bildschirmtreiber DDSCREEN im¬ 
plementiert und wird somit während eines 
diesbezüglichen Aufrufs ignoriert. 


Verwandte Befehle: Text, Txtsize, Txtcolor 
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LINESTYLE 
Linienform festlegen 


Eingabeparameter: 


CONTROL(O) 

CONTROL(l) 

CONTROL(3) 


15 

0 

nicht definiert 


SETPAR(O) 1 = durchgehend 

2 = kurze Striche 

3 = gepunktet 

4 = Strich Punkt 

5 = lange Striche 

6 = Strich-Punkt-Punkt 


Ausgabeparameter: 

keine 


Funktion: LINESTYLE legt das äußere Erscheinungsbild 

einer Linie fest. Mit diesem Befehl können 
problemlos Symetrielinien, Schnittlinien oder 
änliches definiert werden. Die Linienform wird 
dabei mittels SETPAR(O) festgelegt. Es ist bei 
der Linienauswahl unbedingt zu beachten, daß 
der Bildschirmtreiber DDSCREEN keine 
Strich-Punkt-Punkt-Linie darstellen kann. 


Verwandte Befehle: Draw, Linecolor 



524 


Das eroße Grafikbuch zum CPC 


LINECOLOR 
Linienfarbe definieren 


Eingabeparameter: 


CONTROL(O) 17 
CONTROL(l) 0 
CONTROL(3) nicht definiert 


SETPAR(O) 0 = Punkt rücksetzen 
1 = Punkt setzen 


Ausgabeparameter: 

keine 


Funktion: LINECOLOR legt fest, ob eine Linie gezeich¬ 

net oder gelöscht werden soll. Falls sich wäh¬ 
rend des GSX-Aufrufs eine 1 in SETPAR(O) 
befindet, werden zukünftig alle folgenden 
Linien auf dem Bildschirm in grün, und auf 
Druckern mit der Farbe des benutzten Farb¬ 
bands erstellt. Falls der Benutzer hingegen eine 
0 übergibt, hat dies zur Folge, daß von nun an 
mit der Hintergrundfarbe gezeichnet wird. Das 
wirkt sich zwar auf dem Bildschirm, jedoch in 
keinster Weise auf Ducker oder Plotter aus. 


Verwandte Befehle: Draw, Linestyle 
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MKRSTYLE 
Marker-Form festlegen 


Eingabeparameter: ' 


CONTROL(O) 

CONTROL(l) 

CONTROL(3) 


18 

0 

nicht definiert 


SETPAR(O) 1 = . 

2 = + 

3 - * 

4 = 0 

5 = x 


Ausgabeparameter: 

keine 


Funktion: MKRSTYLE erlaubt es, die Form eines Sym¬ 

bols (Marker), das zur Markierung in Dia¬ 
grammen oder ähnlichem verwendet werden 
kann, zu bestimmen. Der entsprechende Code 
der Form muß in SETPAR(O) übergeben wer¬ 
den. 


Verwandte Befehle: Setmkr, Mkrsize, Mkrcolor 
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MKRSIZE 

Marker-Größe bestimmen 


Eingabeparameter: 


CONTROL(O) 19 
CONTROL(l) 1 
CONTROL(3) nicht definiert 


SETPOS(0,0) 0 

SETPOS{1,0) Marker-Größe (1 bis 12) 


Ausgabeparameter: 

keine 


Funktion: Mit MKRSIZE kann die Zeichengröße der 

Marker (Symbole) bestimmt werden. Wenn der 
Bildschirmtreiber DDSCREEN Verwendung 
findet, wird dieses Kommando ignoriert, da er 
nur Zeichengröße "1" verarbeiten kann. 


Verwandte Befehle: Setmkr, Mkrstyle, Mkrcolor, Txtsize 
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MKRCOLOR 
Marker-Farbe definieren 


Eingabeparameter: 


CONTROL(O) 20 
CONTROL(l) 0 
CONTROL(3) nicht definiert 


SETPAR(O) 0 = Punkt rücksetzen 
1 = Punkt setzen 


Ausgabeparameter: 

keine 


Funktion: MKRCOLOR legt fest, ob ein Marker (Sym¬ 

bol) gezeichnet oder gelöscht werden soll. Falls 
sich während des GSX-Aufrufs eine 1 in SET- 
PAR(O) befindet, werden zukünftig alle fol¬ 
genden Marker auf dem Bildschirm in grün, 
und auf Druckern mit der Farbe des benutzten 
Farbbands erstellt. Falls der Benutzer hingegen 
eine 0 übergibt, hat dies zur Folge, daß von 
nun an mit der Hintergrundfarbe gezeichnet 
wird. Das wirkt sich zwar auf dem Bildschirm, 
jedoch in keinster Weise auf Ducker oder 
Plotter aus. 


Verwandte Befehle: Setmkr, Mkrstyle, Mkrsize 
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TXTCOLOR 
Textfarbe definieren 


Eingabeparameter: 


CONTROL(O) 

CONTROL(l) 

CONTROL(3) 


22 

0 

nicht definiert 


SETPAR(O) 0 = Punkt rücksetzen 
1 = Punkt setzen 


Ausgabeparameter: 

keine 


Funktion: TXTCOLOR legt fest, ob ein oder mehrere 

Zeichen gezeichnet oder gelöscht werden sol¬ 
len. Falls sich während des GSX-Aufrufs eine 
1 in SETPAR(O) befindet, werden zukünftig 
alle folgenden Zeichen auf dem Bildschirm in 
grün, und auf Druckern mit der Farbe des 
benutzten Farbbands erstellt. Falls der Benutzer 
hingegen eine 0 übergibt, hat dies zur Folge, 
daß von nun an mit der Hintergrundfarbe 
gezeichnet wird. Das wirkt sich zwar auf dem 
Bildschirm, jedoch in keinster Weise auf Duk- 
ker oder Plotter aus. 


Verwandte Befehle: Text, Txtsize, Txtdir 
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FILLSTYLE 
Füll-Modus festlegen 


Eingabeparameter: 


CONTROL(O) 23 
CONTROL(l) 0 
CONTROL(3) nicht definiert 


SETPAR(O) 0 = skelettieren (Rahmen zeichnen und Fläche 
mit der Hintergrundfarbe ausfüllen) 

1 = gesammte Fläche ausfüllen 

2 = Fläche mit Füllmuster ausfüllen 

3 = Fläphe mit Schraffur ausfüllen 


Ausgabeparameter: 

keine 


Funktion: Mittels FILLSTYLE wird bestimmt, auf welche 

Weise geschlossende Flächen ausgefüllt werden 
sollen. Der entsprechende Code des Füll- 
Modus muß in SETPAR(O) übergeben werden. 


Verwandte Befehle: Fillpoly, Bar, Fillindex, Fillcolor 
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FILLINDEX 

Füllmuster oder Schraffur definieren 


E i n gabeparame ter: 


CONTROL(O) 24 
CONTROL(l) 0 
CONTROL(3) nicht definiert 


SETPAR(O) 


Schraffur- oder Muster-Index: 1 bis 6 (siehe 
Treiberspezifikationstabelle) 


Ausgabeparameter: 

keine 


Funktion: Mittels der GSX-Routine FILLINDEX können 

Schraffuren oder Füllmuster definiert werden, 
die von Funktionen mit automatischer Flä¬ 
chenfüllung verwendet werden. Der Füll¬ 
index, der in SETPAR(O) übergeben werden 
muß, entspricht entweder einem der 6 vorhan¬ 
denen Füllmuster oder Schraffuren. Mit der 
FILLSTYLE-Funktion muß vorher spezifiziert 
werden, ob sich der Füll-Index auf eine 
Schraffur oder ein Muster beziehen, bzw. 
ignoriert werden soll. Die verschiedenen 
Muster finden Sie in der noch folgenden Trei¬ 
berspezifikationstabelle. FILLINDEX wirkt 
sich leider nicht auf den Bildschirmtreiber 
DDSCREEN auf. In allen Fällen wird dieses 
Kommando bei der Bildschirmausgabe igno¬ 
riert, und die zu füllende Fläche mit der Hin¬ 
tergrundfarbe ausgefüllt. 

Verwandte Befehle: Fillpoly, Bar, Fillstyle, Fillcolor 
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FILLCOLOR 
Flächenfarbe definieren 


Eingabeparameter: 


CONTROL(O) 25 
CONTROL(l) 0 
CONTROL(3) nicht definiert 


SETPAR(O) 0 = Punkt rücksetzen 
1 = Punkt setzen 


Ausgabeparameter: 

keine 


Funktion: FILLCOLOR legt fest, ob eine Fläche ausge¬ 

füllt oder gelöscht werden soll. Falls sich 
während des GSX-Aufrufs eine 1 in SET- 
PAR(O) befindet, werden zukünftig alle Flä¬ 
chen auf dem Bildschirm in grün, und auf 
Druckern mit der Farbe des benutzten Farb¬ 
bands ausgefüllt. Falls der Benutzer hingegen 
eine 0 übergibt, hat dies zur Folge, daß von 
nun an mit der Hintergrundfarbe gefüllt wird. 
Das wirkt sich zwar auf dem Bildschirm, 
jedoch in keinster Weise auf Ducker oder 
Plotter aus. 


Verwandte Befehle: Fillpoly, Bar, Fillstyle, Fillindex 
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10.5 GDOS Intern 

In diesem Kapitel soll der Maschinensprache-Programmierer mit 
den internen Strukturen von GDOS vertraut gemacht werden. 
Dazu wird an dieser Stelle ein komplett dokumentiertes GDOS- 
Listing vorgestellt. Der darin verwendete Speicherbereich 
(Startadresse BE00 Hex) bezieht sich auf folgende, von DIGI¬ 
TAL RESEARCH vordefinierte Standardtreiber-Konfiguration: 


- DDFXHR8 

- DDFXLR8 

- DDHP7070 

- DDSCREEN 


Die Treiber wurden in Verbindung mit dem Programm 
BASIC.COM installiert. Falls Sie in Ihren Programmen eine 
andere Softwarekonfiguration bevorzugen, müssen Sie die sich 
mit größter Warscheinlichkeit verschobene GSX-Startadresse 
durch experimentelle Suchprogramme ermitteln. 

Wenn Sie nun einen ersten Blick in das GDOS-Listing werfen, 
werden sie sofort bemerken, daß die Z80-Mnemonics fehlen. 
Wie schon bei dem in Kapitel 9.6 vorgestellten ROM-Listing 
konnten auch hier aus urheberrechtlichen Gründen weder Op- 
Code noch Mnemonics abgedruckt werden. Um Ihnen jedoch die 
Betrachtung des vollständigen GDOS-Listing (Adressen, Op- 
Codes, Mnemonics umd Dokumentation) zu ermöglichen, wird 
an dieser Stelle ein Disassember für den JOYCE abgedruckt. Die 
6128-Besitzer können weiterhin den in Kapitel 9.6.1 vorgestell¬ 
ten Disassembler verwenden. Lediglich muß für diese Anwen¬ 
dung das Lesen aus dem ROM-Speicher durch eine einfache 
PEEK-Funktion ersetzt werden. 

Der hier vorgestellte Disassembler übersetzt den Maschinencode 
in Z80-Mnemonics. Auf das 8080-Äquivalent wurde hier gänz¬ 
lich verzichtet, weil dessen symbolischer Code wesentlich 
unverständlicher ist. Des weiteren enthält schließlich Ihr JOYCE 
oder CPC nicht einen 8080-, sondern einen Z80-Mikroprozessor. 
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Nach erfolgreicher Disassembliereung wird sich der Z80- 
Maschinenspracheprofi villeicht über den umständlichen 
Programmierstil wundern. Dieser uneffektive Code ist nicht etwa 
mit dem Unvermögen der Programmierer, sondern mit der Tat¬ 
sache, daß GDOS vollständig in 8080-Maschinensprache pro¬ 
grammiert wurde, zu erklären. Dieser Prozessor beinhaltet ja 
bekanntlich nur knapp ein Zehntel des Z80-Befehlssatzes. 


50 REN DISASSEMBLER FUER JOYCE 
60 REH 
70 GOTO 1020 

80 PRINT"Z 80 - DISASSENBLER" 

90 PRINT:PRINT:INPUT"STARTADRESSE : &H",AS 

100 GOSUB 930:ANFA=A 

110 PRINT:INPUT"ENDADRESSE : &H'\A$ 

120 GOSUB 930:ENDE=A 
130 IF ANFA>ENDE THEN 60 
HO PC=ANFA 
150 ADR=PC 

160 PRINT HEX$(ADR,4>;" 

170 IFLAG=0 

180 GOSUB 970 

190 GOSUB 310 

200 IF IFLAG THEN 620 

210 IF (U=&HCF OR W=&HD7 OR U=&HDF OR W=&HEF) AND (LEFT$(PR$,3)="RST") T 

HEM PR$=PR$+» /DU:NN 11 

220 IF 1NSTR(PRS,"N"><>0 THEN 730 

230 IF INSTR(PR$, M E")<>0 THEN 850 

240 PO=lNSTR(PR$," •■) 

250 IF PR$= M " THEN PRS= >'???» 

260 IF PO=0 THEN PRINT TAB(21);PR$;:GOTO 280 

270 PRINT TAB(21);LEFT$(PR$,PO-1);TAB(27);RIGKT$(PR$,LEN(PR$)-PO); 

280 PRINT 

290 IF PC<=ENDE THEN 150 
300 END 
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310 REH INTERPRETIEREN 
320 IF (U=&HDD OR W=RHFD) AND NOT IFLAG THEN 510 
330 IF W=&NED THEN 480 
340 IF U=&HCB THEN 420 
350 GOSUB 560 

360 ON COI GOTO 380,400,370 

370 PR$=BEF*(W):RETURN 

380 IF W=&H76 THEN PR$="HALT":RETURN 

390 PR$="LD ,, +REGTA8$(C02)+","+REGS: RETURN 

400 IF C02=0 OR C02=1 OR C02=3 THEN A$=" A," ELSE A$=" » 

410 PR$=ARILOG*(C02)+A$+REG$:RETURN 
420 REH CB 
430 GOSUB 970 

440 IF IFLAG THEN DIS=W:GOSUB 970 
450 GOSUB 560 

460 IF CO1=0 THEN PR$=R0TSCHI$(C02>+" "+REG$ ELSE PR$=BITTI$(C01)+STR$<C 
02)+»,' ,+ REG$ 

470 RETURN 
480 REM ED 
490 GOSUB 970 

500 IF W<&H40 OR W>&HBF THEN PRS=»???'':RETURN ELSE GOTO 370 
510 REH XY 
520 IFLAG=-1 

530 IF W=SHDD THEN IS= ,, IX 11 ELSE I$="IY" 

540 GOSUB 970 

550 GOTO 310 

560 REH COOE ZERLEGEN 

570 C01=(W AND 192)/64 

580 C02=(W AND 56)/8 

590 C03=W AND 7 

600 REG$=REGTAB$(C03) 

610 RETURN 

620 REM INDIZIERT 

630 PO=INSTR(PR$,“HL'*) 

640 IF P0=0 THEN PR$= l, ???'':GOTO 240 

650 IF INSTR(PR$,"(HL>»)<>0 THEN 690 

660 IF PR*=”EX DE,HL" THEN PR$="???":GOTO 240 

670 IF PR$="ADD HL,HL" THEN PR$="ADD "+I$+","+I$:GOTO 240 
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680 PR$=LEFT$(PR$,PO-1)+I$+RIGHT$(PR$,LEN(PR$)-PO-1):GOTO 210 
690 IF LEFT$<PR$,2)=»JP" THEN 680 
700 IF PC-ADR<3 THEN GOSUB 970:DIS=W 

710 IF DIS>127 THEN DIS$=STR$(DIS-256) ELSE DIS$= ,l +"+RIGHTS(STR$(DIS) f LE 
N(STR$(DIS))-1) 

720 I$=l$+DISS:GOTO 680 
730 REH N ERSETZEN 
740 PO=INSTR(PRS,''NN") 

750 IF PO<>0 THEN 800 
760 PO=INSTR(PRS,"N") 

770 GOSUB 970 

780 PRS=LEFT$(PR$,PO-1)+''&»+HEX$(W,2>+RIGHTS{PR$,LEN(PR$)-PO) 

790 GOTO 240 
800 GOSUB 970:LB=W 
810 GOSUB 970 
820 WERT=W*256+LB 

830 PR$=LEFTS(PR$,PO- 1)+ ,, & I, +HEX$(WERT,4)+RIGHT$(PRS,LEN(PRS)-P0-1) 

840 GOTO 240 
850 REM E ERSETZEN 
860 PO=INSTR(PR$ 

870 GOSUB 970 

880 IF W>127 THEN W=W-256:REM 2ER-K0MP. 

890 W=W+2 

900 AS="S"+STR$(W)+'' > ,, +"& ,, +HEX$(PC+U*2,4) 

910 PRS=LEFT$(PR$,PO-1)+A$+RIGHT$(PR$ f LEN(PRS)-PO) 

920 GOTO 240 

930 REH UMWANDLUNG HEX -> DEZ 
940 IF AS='"' THEN A=0:RETURN 
950 A*VAL("&H'‘+AS) 

960 RETURN 

970 REM BYTE LESEN 

980 W*PEEK(PC) 

990 POPC+1 

1000 PRINT HEX$(W,2);" 

1010 RETURN 
1020 REH INIT 

1030 dim regtabs<i2),rotschisc8),bittisc3),arilogs(7) # befs<255> 

1040 FOR 1=0 TO 7:READ REGTAB$(I);NEXT 
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1050 FOR 1=0 TO 7:READ ROTSCHIS(I>:NEXT 
1060 FOR 1=1 TO 3:READ BITTI$(I):NEXT 
1070 FOR 1=0 TO 7:READ ARILOG$(I):NEXT 
1080 FOR 1=0 TO &K7F:READ BEFS(I):NEXT 
1090 FOR I=&H80 TO &H9F:BEF$(I)="“:NEXT 
1100 FOR I=&HA0 TO &HFF:READ BEF$(I):NEXT 
1110 GOTO 80 
1120 REM DATAS 

1130 DATA B,C,D,E,K,L,(HL),A 

1140 DATA RLC,RRC,RL,RR,SLA,SRA,???,SRL 

1150 DATA BIT,RES,SET 

1160 DATA ADD,ADC,SUB,SBC,AND,XOR,OR,CP 

1170 DATA N0P,“LD BC,NN»,»LD (BC),A»,1NC BC.INC B,DEC B,»LD B,N»,RLCA 
1180 DATA »EX AF,AF'“,»ADD HL,BC»,“LD A,(BC)»,DEC BC,INC C.DEC C,»LD C,N 
“,RRCA 

1190 DATA DJ KZ E,''LD DE,NN“, ,, LD (DE),A»,INC DE,INC D,DEC D,»LD D,N",RLA 
1200 DATA JR E,"ADD HL,DE'*,“LD A,(DE)»,DEC DE,INC E,DEC E,'*LD E,N»,RRA 
1210 DATA »JR NZ,E»,“LD HL,NN»,»LD (NN),HL»,INC HL,INC H,DEC H,«LD H,N", 
DAA 

1220 DATA »JR Z,E","ADD HL,HL»,»LD HL,(NN)",DEC HL,INC L,DEC L,"LD L,N", 
CPL 

1230 DATA »JR NC,E",»LD SP,NN»,»LD (NN),A»,INC SP,INC (HL),DEC (HL),"LD 
(HL),N",SCF 

1240 DATA »JR C,E","ADD HL.SP»,»LD A,(NN)»,DEC SP,INC A,DEC A,"LD A,N»,C 
CF 

1250 DATA »IN B,(C)»,"OUT (C),B»,“SBC HL,BC»,»LD (NN),8C",NEG,RETN,IM 0, 
»LD 1,A" 

1260 DATA »IN C,(C)»,»OUT (C),C»,»ADC HL,BC»,»LD BC,(NN>»,,RETI,,»LD R,A 
1270 DATA «IN D,(C)»,»OUT (C),D»,«S8C HL,DE","LD (NN),DE»,,,IM 1,“LD A,I 

II 

1280 DATA “IN E,(C)«,»OUT (C),E",»ADC HL,DE","LD DE,(NN)",,,IM 2,«LD A,R 

ii 

1290 DATA »IN H,(C)«,“OUT (C),H»,»SBC HL,HL»,»LD (NN),HL“,,,,RRD 
1300 DATA »IN L,(C)»,»OUT (C),L»,»ADC HL,HL»,"LD HL,(NN)",,,,RLD 
1310 OATA ,,»SBC HL,SP»,»LD (NN),SP»,,,, 

1320 DATA »IN A,(C)'*,»OUT (C),A»,»ADC HL,SP",»LD SP,(NN)» 


/ / / 9 
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1330 DATA LDI,CPI,INI,0UT1,,,,,LDD,CPD ( IND,OUTD,,,, 

1340 DATA LD1R,CPIR,INIR,OTIR,,,,,LDDR,CPDR,INDR,OTDR,,,, 

1350 DATA RET NZ.POP 8C,"JP NZ,NM",JP NN,“CALL NZ,NN“,PUSH BC,''ADD A,N", 
RST &00 

1360 DATA RET Z,RET,»JP Z,NN",->,"CALL Z,NN",CALL NN,"ADC A,N",RST &08 
1370 DATA RET NC,POP DE,"JP NC,NN","OUT (N),A","CALL NC,NN",PUSH DE,"SUB 
N",RST &10 

1380 DATA RET C,EXX,"JP C,NN","IN A,(N)","CALL C,NN",- 
>,"SBC A,N",RST &18 

1390 DATA RET PO,POP HL,"JP PO,NN" f "EX (SP),HL","CALL PO,NN",PUSH HL,"AN 
D N",RST &20 

1400 DATA RET PE,JP (HL),"JP PE,NN“,"EX DE,HL“,"CALL PE,NN",- 
>,"XOR N",RST &28 

1410 DATA RET P,POP AF,"JP P,NN",DI,"CALL P,NN",PUSH AF,"OR N",RST &30 
1420 DATA RET M,"LD SP,HL","JP H,NN",EI,"CALL M,NN",->,»CP N",RST &38 
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GDOS 1.0 


BE00 . GDOS-EINSPRUNG 

BE00 ;GDOS EINSPRUNG 
BE03 ;BDOS EINSPRUNG 

t 

BE06 ;DEVICENUMMER DES AKTIVEN TREIBERS 


BE08 . DEVICETREIBER 1 

BEOS ;DEVICENUMHER (21) 

BEOA ;LAUFWERK 

BEOB ;DEVICE-NAME 

BE 12 ;BLANK FÜR 8. STELLE 


BE13 


BE13 
BE 15 
BE16 
BElD 


DEVICENUHHER (22) 
LAUFWERK 
DEVICE-NAHE 
BLANK FÜR 8. STELLE 


DEVICETREIBER 2 


BE1E . DEVICETREIBER 3 

BE1E ;DEVICENUMMER (11) 

8E20 ;LAUFWERK 

BE21 ;DEV!CE-NAME 


BE29 . DEVICETREIBER 4 

BE29 ;DEVICENUMMER (1) 

BE2B ;LAUFWERK 
BE2C ;DEVICE-NAME 












GSX - die era fische Svstemerweiterung 


539 


BE34 . 

BE34 ;ENDE-KENNZEICHEN, DA KEIN FÜNFTER TREIBER 

BE36 /LAUFWERK 

BE37 /RESERVIERTER PLATZ 

BE39 /FÜR DEVICE-NAME 

BE3B / " 

BE3D / " 

I 

BE3F /ENDE-KENNZEICHEN 


BE41 . 

BE41 ." 

BE5F .. 

I 

BE74 /ZEILENENDE-KENNUNG 

f 

BE76 "GSX-80 1.1 01 Oct 83 Seria" 

BE94 »l No 5000-1232-654321" 

r 

BEA9 /ZEILENENDE-KENNUNG 

t 

BEAB "Copyright (C) 1983 " 

BEC9 » " 

t 

BEDE /ZEILENENDE-KENNUNG 

t 

BEEO "Digital Research, Inc. " 

BEFE " All rights reserved" 

r 

BF13 /ZEILENENDE-KENNUNG 
» 

BF15 .. 

BF33 ". 


. DEVICETREIBER 5 

ANGEMELDET WURDE 


GSX-MESSAGE 


BF48 /ZEILENENDE-KENNUNG 
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BF4A ;EM-BYTE 

9 

BF4B ;BUFFER 

BF6D . GDOS START 

BF60 ;HANDELT ES SICK UM 
BF6E .-EINEN GSX AUFRUF? 

BF70 .-WENN NEIN - SPRINGE NACH BOOS 

9 

BF73 ;HL = BUFFERSTART 

BF76 ;HOLE DIE STARTADRESSEN ALLER 5 GSX I/O-VEKTOREN (FÜNF ADRESSEN = 

10 BYTES) 

BF78 ;TRANSBYT AUFRUFEN 


BF7B 

BF7E 

BF7F 

BF80 

BF81 

BF82 

BF83 

BF84 

BF85 


HL = ADRESSE VON CONTROL(O) 

A = LSB 1 VON CONTROL(O) 

ZEIGE AUF MSB 2 

:H = MSB (CONTROL(O)) 

■HL = CONTROL(O) 

: FUNKTIONSNUMMER -1 FÜR VERGLEICH 
fNEUEN DEVICETREIBER 
^LADEN? 

'WEHN NEIN FAHRE FORT 


BF88 ;GETCNT AUFRUFEN 

BF8B ;DEVICETREIBER ANSPRINGEN 

BF8E ;SENDPAR AUFRUFEN 


BF91 .- NEUEN DEVICETREIBER LADEN 

BF91 ;HL = ADRESSE VON SETPAR(O) 

BF94 ;E = LSB VON SETPAR (0) 

BF95 .-ZEIGE AUF MSB 

BF96 ;DE = NEUE DEVICENUMMER 

BF97 ,-HOLE AKTUELLE DEVICENUMMER 


1 

2 


niederwertiges Byte 
höchstwertiges Byte 
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BF9A ;CHPDRV AUFRUFEN 

BF90 ;UENN NEUER TREIBER = OEM AKTUELLEN TREIBER, FEHLER AUSGEBEN! 
BFAO ;POINTER AUF DEVICENUMMER VON TREIBER 1 
BFA3 ;ADRESSE RETTEN. 

BFA4 ;HOLE LSB DER DEVICENUMMER 

BFA5 ;KOLE MSB DER 

BFA6 ;DEVICENUMMER 

BFA7 ;HL = DEVICENUMMER 

8FAS .-GÜLTIGE DEVICE- 

BFA9 ;NUMMER? 

BFAA ;STACK IN ORDNUNG BRINGEN 
BFAB ;FEHLER AUSGEBEN? 

BFAE ;RETTE POINTER 

BFAF ;CHPDRV AUFRUFEN 

BFB2 .-POINTER AUF DEVICENUMMER 

BFB3 ;WENN DEVICETREIBER ANGEMELDET, SPRINGE NACH &BFBD 

BFB6 ;OFFSET FÜR NÄCHSTE DEVICENUMMER 

BFB9 .-BERECHNE ADRESSE DER NÄCHSTEN DEVICE-NR. 

BFBA ;HOLE NÄCHSTE NUMMER 


BFBD 

BFBE 

BFBF 

BFCO 

BFC3 

BFC6 

BFC8 

BFCB 

BFCE 

BFD1 

BFD4 

BF05 

BFD6 

BFD7 

BFD8 

BFD9 

BFDA 

BFDD 

BFDE 

BFDF 


HOLE LAUFUERKSNUMMER 

ii 

HOLE NEUE DEVICENUMMER 

AKTUELLE DEVICENUMMER * NEUE DEVICENUMMER! 

BUFFER FÜR READ Fl LE 

ÜBERTRAGE 9 BYTES (LAUFUERKSNUMMER UND DEVICETREIBER-NAME) 

TRANSBYTE ANSPRINGEN 

READFILE AUFRUFEN (TREIBER LADEN) 

ERROR AUFRUFEN FEHLER AUFGETRETEN? 

KL = ADRESSE VON GETPAR(O) 

HOLE LSB 
ZEIGE AUF MSB 
UND RETTE ADRESSE 
H = MSB 

HL = GETPAR(0)+1 
n 

UND MERKEN 

HOLE MSB DER ADRESSE VON GETPAR(O) 

ZEIGE AUF LSB DER GETPAR(I) ADRESSE 
HOLE LSB 
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BFEO ;ZEIGE AUF MSB 
BFEl ;H = MSB 
BFE2 ;HL = GETPAR<1>+1 
BFE3 ; " 

BFE4 ;UND MERKEN 
BFE7 ;SPRUNG AUF JUMP 


BFEA 

BFEA 

BFED 

BFEE 

BFEF 

BFFO 

BFF1 

BFF2 

BFF3 

BFF4 

BFF5 

BFF8 

BFF9 

BFFC 

BFFE 

C001 

C002 

C005 

C008 

C009 

COOA 

I 

COOB 

COOC 

cooo 

C010 

C013 

C014 

C017 

C01A 


HL = ADRESSE VON CONTROL(O) 

POINTER AUF ADRESSE 
VON CONTROL(l) 

:E = LSB VON CONTROL(I) 

;ZEIGE AUF MSB 
;DE = CONTROL<1> 

;WERDEN KOORDINATEN 
; ÜBERGEBEN? 

;UENN NEIN, ZURÜCK ZUM HAUPTPROGRAMM 
; OFFSET FÜR VERGLEICH 
;WURDEN MEHR ALS 75 
; KOORDIN. ÜBERGEBEN? 

;UENN JA, DEZIMIERE IHRE ANZAHL AUF 75 
;POINTER AUF ADRESSE VON SETPOS(O) 

;SETZEN UND RETTEN 
;GET-BUFFER EINRICHTEN 
;UND STARTADRESSE MERKEN 
;POINTER NACH BC 
;ÜBERTRAGEN 

;HOLE ADRESSE VON SETPOS(O) 

;ANZAHL DER KOORDINATEN RETTEN 
;DE = ADRESSE VON SETPOS<0) 

;HOLE GETPAR(O) 

;PARCONV AUFRUFEN GETPAR(N) UMRECHNEN 
;DE = ADRESSE VON SETPOS(1> 

;HOLE GETPARO) 

;PARCONV AUFRUFRN 

;HOLE ANZAHL DER KOORDINATEN 


GETCNT 
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C01B ;ANZAHL = ANZAHL * 1 

C01C ;NOCH KOORDINATEN VORHANDEN? 

i 

C01F ;FERTIG! 


C020 . 

C020 ;HOLE ADRESSE VOM SETPOS NACH HL 
C021 ;AKKU = LS8 VON SETPOS(O) 

C022 ;POINTER AUF MSB 

C023 ;UND RETTEN 

C024 ;H = MSB VON SETPOS(O) 

C025 ;RETTE POINTER VOM GET-BUFFER 

C026 ;HL = SETPOS(0) 

C027 ;INITIALISIERE ZÄHLER 

C029 ;RETTE GETPAR(O) ODER GETPAR(I) 

C02A ;SETP0S(0) NACH DE 
C02B ;HL INITIALISIEREN 
i 

.****************** SHTPOS(N)/15 

i 

C02E ;HOLE MSB VON SETPOS(N) 

C02F .-DIVIDIERE ES DURCH 2 

C030 ;UND SCHREIBE ERGEBNIS ZURÜCK NACH D 

C031 ;HOLE LSB VON SETPOS(N) UND 

C032 .-DIVIDIERE ES DURCH 2 

C033 ;DE = SETPOS(N)/2 

C034 ;SPRINGE FALLS BEI DIVISION KEIN REST AUFGETRETEN IST 

C037 ;RETTE ZÄHLER 

C038 ;HOLE GETPAR(O) ODER GETPAR(I) 

C039 .-UND ZURÜCK AUF STACK 
C03A ;HL <-- BC 

C03B ;ZÄHLER NACH C ZURÜCKSCHREIBEN 
» 

C03C ;HOLE MSB 

C03D ;DIVIDIERE ES DURCH 2 

C03E ;UND SCHREIBE ERGEBNIS ZURÜCK NACH H 

C03F ;HOLE LSB 

C040 ;DIVIDIERE ES DURCH 2 


PARCONV 
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C041 ;UND SCHREIBE ERGEBNIS ZURÜCK NACH H 
C042 ;ZÄHLER = ZÄHLER - 1 
C043 ;SCHLEIFENENDE? 

t 

C046 ;HOLE GET-BUFFER 
C047 ; « 

C048 ;LSB WEGSCHREIBEN 
C049 ; 11 

C04A ;POINTER ERHÖHEN 
C04B ;MSB HOLEN 

C04C ;UND IN DEN GET-BUFFER SCHREIBEN 
C04D ;POINTER ERHÖHEN 
C04E ;HOLE SETPOS(N) 

C04F ;ZEIGE AUF N+1 
C050 ;ENDE DER ROUTINE 


C051 . 

C051 ;HOLE ADRESSE VON CONTROL(O) 

C054 .'ZEIGE AUF ADRESSE VON CONTROL(4) 

C057 ; 

C058 ;HOLE LSB VON CONTROU4) 

C059 ;HOLE MSB 

C05A ;BC = CONTROL<4>, DIE ANZAHL DER KOORDINATEN, DIE DEM USER 
.•GESENDET WERDEN 

C05B ;HOLE ADRESSE VON GETPOS(O) 

» 

C05E .-SOLLEN KOORDINATEN 
C05F ;GESENDET WERDEN? 

C060 ,-WENN NEIN, ZURÜCK ZUM HAUPTPROGRAMM 
C061 ;RETTE CONTROL(4) 

C062 ;DE = ADRESSE VON GETPOS(N.N) 

C063 ;HOLE GETPAR(O) 

C066 ;PARTRANS AUFRUFEN 

C069 ;DE = GETPOS(N+1,N> 

C06A ;HOLE GETPAR(I) 

C06D ,-PARTRANS AUFRUFEN 

C070 ;HOLE ANZAHL DER ZU SENDENDEN K0- 


SENDPAR 
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C071 ;ORDIMATEN UND VERINGERE IHRE ANZAHL UM EINS 
C072 .'NÄCHSTE PARAMETER VERARBEITEN 


C075 • 

C075 

BC = GETPAR(O) BZW. 

C076 

GETPARO) 

C077 

HOLE ADRESSE VON GETPOS{N,N) 

C078 

E = LSB VON GETPOS(N.N) 

CQ79 

RETTE ADRESSE VON GETPOS(N.N) 

C07A 

HOLE MSB 

C07B 

DE = GETPOS(N) 

C07C 

HL = GETPOS(N) 

C07D 

ZÄHLER INITIALISIEREN 

C07F 

NEW.PRM INITIALISIEREN 

C082 

ZÄHLER RETTEN 

C083 

HOLE NEW.PRM 

C084 

UND MULTIPLIZIERE ES MIT 2 

C085 

HOLE GETPOS(N) 

C086 

GETPOS * 2 

C087 

AKKU = LSB 

C088 

MINUS LSB DES VON GETPAR(O) B2W. GETPARO) 

C089 

UND ZURÜCKSCHREIBEN 

C08A 

AKKU = MSB 

C08B 

MINUS CARRY UND MSB VON GETPAR(O) BZW. GETPARO) 

C08C 

HL = ERGEBNIS 

C08D 

KLEINER NULL? 

C090 

ADDIERE ZU ERGEBNIS GETPAR(O) BZW. GETPARO) 

C091 

NEW.PRM FOR MODIFIZIERUNG SCHÜTZEN (INC DE) 

C092 

NEW.PRM + 1 

C093 

HOLE ZÄHLER 

C094 

UND ERHÖHE IHN 

C095 

ZÄHLER UNGLEICH NULL? 

C098 

LÖSCHE CARRY-FLAG 

C099 

UND HOLE NEW.PRM 

C09A 

NEW.PRM/2 

C09B 

II 

C09C 

II 

C09D 

II 


PARTRANS 
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• I« 

9 

.■ÜBERLAUF? 

;WENN NEIN ERHÖHEN 
;HOLE ADRESSE VON GETPOS(N.N) 

;NEW.PRM SPEICHERN 

. fl 

9 

m II 

9 

.-ZEIGE AUF GETPOS(l.N) ODER GETPOSCO.N+1) 

.■ROUTINENENDE 

. TRANSBYT 

TRAKSBYT überträgt einen maximal 256 langen Datenblock in einen anderen 
RAM-Bereich. 

Einagbeparameter: Ausgabeparameter: 

DE = Startacfresse des Blocks keine 

HL = Zieladresse 
C = Blocklänge in Bytes 

zerstörte Register: A, C. D, E, F, H, L 


C09E 
C09F 
C0A2 
C0A3 
CO A4 
C0A5 
C0A6 
C0A7 
C0A8 


C0A9 


C0A9 ,-HOLE BYTE... 

COAA .-UND ÜBERTRAGE ES IN DEN BUFFER 
COAB ;AUF NÄCHTES BYTE IM BUFFER ZEIGEN 
COAC ;AUF NÄCHTES BYTE ZEIGEN 
COAD ;ALLE BYTES ÜBERTRAGEN? 

COAE .'WENN JA ZURÜCK ZUM HAUPTPROGRAMM 
COB1 ; " 

C0B2 . CMPDRV 

CMPDRV vergleicht die Nummer des aktuell verwendeten Devicetreibers, mit 
der des neuen Treibers. Die aktuelle Devicenummer muß sich in diesem 
Zusammenhang in HL, und die neue in DE befinden. Sind beide Nummern 
identisch, so wird am Ende der Routine das Zero-Flag gesetzt - wenn 
nicht rückgesetzt. 
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Einagbeparameter: Ausgabeparameter: 

DE = neue Devicenumner keine 

HL = aktuelle Devicenumner 

zerstörte Register: A, F, H, L 


C0B2 

C0B3 

C0B4 

C0B5 

C086 

C0B7 

C0B8 

C0B9 


AKKU = LSB DER AKTUELLEN DEVICENUMMER 
SUBTRAHIERE LSB DES NEUEN DEVICE TREIBER 
ERGEBNIS SICHERN 

AKKU = MSB DER AKTUELLEN DEVICENUMMER 
SUBTRAHIERE MSB + ÜBERTRAG DES NEUEN DEVICETREIBERS 
ERGEBNIS SICHERN 

NEUER TREIBER = AKTUELLER TREIBER? 

FERTIG! 


COBA - 

COBA 

CONTROL STARTADRESSE 

COBS 

II 

COBC 

SETPAR STARTADRESSE 

COBD 

II 

COBE 

SETPOS STARTADRESSE 

COBF 

II 

coco 

GETPAR STARTADRESSE 

COC1 

N 

C0C2 

GETPOS STARTADRESSE 

COC3 

II 

C0C4 

GETPAR(O) STARTADRESSE 

C0C5 

II 

C0C6 

GETPAR(I) STARTADRESSE 

C0C7 

II 


SYSTEM BUFFER 
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10.6 GSX Fehlermeldungen 

GSX enthält eine ganze Palette spezieller Meldungen, die beim 
Auftreten eines Fehlers automatisch auf dem Bildschirm ausge¬ 
geben werden. Die Ausgabe einer derartigen Fehlermeldung 
kann einen Programmabbruch anschließendem Rücksprung ins 
CP/M-Betriebssystem zur Folge haben. 


Fehlermeldung 
d:filename.PRL not found 


d:dateiname.PRL empty 


Erläuterung 

"Devicetreiber nicht gefunden": 
Der in ASSIGN.SYS angemeldete 
Devicetreiber ist nicht auf dem 
vordefinierten Laufwerk vor¬ 
handen. Der entsprechende 
Treiber muß auf die Diskette 
des betref enden Laufwerks 
kopiert, oder die Lauf¬ 
werksspezifikation in ASSIGN 
.SYS geändert werden. 

"Devicetreiber leer": Der in 
ASSIGN.SYS angemeldete 

Devicetreiber wurde gefunden - 
sein Inhalt ist hingegen fehler¬ 
halt oder nicht vorhanden. Der 
in der Fehlermeldung auf ge¬ 
führte Treiber muß erneut auf 
die betreffende Diskette kopiert 
werden. 


d:filename.PRL contains 

absolute segment "Devicetreiber enthält inkom¬ 

patible Daten": Der betreffende 
Devicetreiber enthält fehlerhafte 
Daten. Der in der Fehlermel¬ 
dung aufgeführte Treiber muß 
erneut auf die betreffende Dis¬ 
kette kopiert werden. 
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d:filename.PRL closing error "Devicetreiber ist nicht ge¬ 
schlossen worden": Die Diskette 
mit dem in der Fehlermeldung 
angegebenen Devicetreiber ist 
ausgewechselt worden. Sie muß 
wieder in das Laufwerk, das in 
ASSIGN.SYS angemeldet wurde, 
eingelegt werden. 

d:filename.PRL load error "Devicetreiber Ladefehler": Die 

in ASSIGN.SYS angemeldeten 
Devicetreiber sind nicht in ab¬ 
steigender Reihenfolge ein¬ 
getragen worden. Folglich muß 
ASSIGN.SYS neu definiert wer¬ 
den. 


10.7 Devicetreiber Spezifikationen 

Jeder Devicetreiber hat aus hardwarebedingten Gründen unter¬ 
schiedliche Eigenschaften. Die Programmierer von DIGITAL 
RESEARCH haben sich zwar bemüht, die Unterschiede so 
gering wie möglich zu halten, aber auf einigen Gebieten sind 
größere Tolleranzen leider unvermeidbar; so kann ein Drucker 
beispielsweise keine Linien löschen. Auf dem Bildschirm ist hin¬ 
gegen ein Form-Feed beim besten Willen nicht realisierbar. 
Daraus resultiert, das bestimmte Programme nur mit bestimmten 
Devicetreibern sinnvoll Zusammenarbeiten können. 

In vielen Fällen bewährt sich sicherlich der Einsatz des Bild¬ 
schirmtreibers DDSCREEN in Zusammenarbeit mit einem 
Druckertreiber. Diese Kombination hat den Vorteil, das die zu 
bearbeitende Grafik auf dem Bildschirm in der Grundstruktur 
probemlos erfaßt und manipuliert werden kann. Falls alle 
Schritte korrekt verlaufen sind, steht dann der Ausgabe über Ihr 
Peripheriegerät nichts mehr im Wege. 
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Damit Sie sich über die Möglichkeiten der einzelnen Devicetrei¬ 
ber ein Bild machen können, finden Sie alle diesbezüglichen 
Informationen in den nun folgenden Treiber-Spezifikationsta¬ 
bellen. Sie sind übrigens nicht nur für den Programmierer 
interessant, sondern helfen auch dem reinen Anwender beim 
Softwareerwerb weiter, denn einige GSX-Programme verlangen 
von dem installierten Devicetreiber ganz bestimmte Eigen¬ 
schaften. 


DDSCREEN.PRL 

Ausgabegerät: 

Bildschirm 

Auflösung: 

720 x 248 Pixel 

Linienform: 

1 durchgehend 

Strichstärken: 

2 kurze Striche 

3 gepunktet 

4 Strich-Punkt (Symmetrie-Linie) 

5 lange Striche 

1 

Marker (Symbole): 

1 . 

Zeichengrößen: 

2 + 

3 * 

4 o 

5 x 

eine (Standardgröße) 

Textrichtungen: 

eine (0) 

Füllmuster: 

keine (Fläche wird umrahmt) 

Schraffuren: 

keine (Fläche wird umrahmt) 

Verallgemeinertes 

Darstellungselement: 

Balken-Umriß 
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Escape-Folgen: 

Eingabe: 


DDFXLR8.PRL 

Ausgabegerät: 

Auflösung: 

Linienform: 


Strichstärken: 
Marker (Symbole): 

Zeichengrößen: 


alle, bis auf Grafik-Tablett und Hard¬ 
copy 

nein 


Drucker (low-resolution) 

480 x 672 Pixel 

1 durchgehend 

2 kurze Striche 

3 gepunktet 

4 Strich-Punkt (Symmetrie-Linie) 

5 lange Striche 

6 Strich-Punkt-Punkt 

12 

1 . 

2 + 

3 * 

4 o 

5 x 

12 

0, 90, 180, 270, 360 


Textrichtungen: 
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Füllmuster: 


Schraffuren: 


1 — 


2 

3 

4 

5 

6 




Verallgemeinertes 

Darstellungselement: 

Escape-Folgen: 

Eingabe: 


ausgefüllter Balken 

verfügbare Zeichenzellen angeben 

nein 


DDFXHR8. PRL 

Ausgabegerät: Drucker (high-resolution) 

Auflösung: 480 x 672 Pixel 

1 durchgehend 

2 kurze Striche 

3 gepunktet 

4 Strich-Punkt (Symmetrie-Linie) 


Linienform: 























5 lange Striche 

6 Strich-Punkt-Punkt 


Strichstärken: 12 

Marker (Symbole): 1 . 

2 + 

3 * 

4 o 

5 x 

Zeichengrößen: 12 

Textrichtungen: 0, 90, 180, 270, 360 

Füllmuster: Schraffuren: 



V erallgemeinertes 

Darstellungselement: ausgefüllter Balken 
Escape-Folgen: verfügbare Zeichenzellen angeben 

Eingabe: 


nein 
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Anhang - Grafikbezogene BASIC-Befehie 


BORDER 

BORDER Farbe[,Farbe] 

Rund um die beschreibbare Fläche auf dem Bildschirm des CPC 
befindet sich ein Rand (BORDER), auf dem keine Darstellung 
erfolgen kann. Die Farbe dieses Bildschirmrandes kann mit dem 
Kommando BORDER verändert werden. Für Farbe kann ein 
Wert zwischen 0 und 26 eingesetzt werden. Welcher Wert für 
welche Farbe steht, ist in der folgenden Tabelle aufgeführt. 


0 schwarz 

1 blau 

2 leuchtend blau 

3 rot 

4 magenta 

5 mauve 

6 leuchtend rot 

7 purpur 

S leuchtend magenta 
9 grün 

10 blaugrün 

11 himmelblau 

12 gelb 

13 weiB 


14 pastellblau 

15 orange 

16 rosa 

17 pastellmagenta 

18 leuchtend grün 

19 seegrün 

20 leutend blaugrün 

21 limonengrün 

22 pastellgrün 

23 pastell-blaugrün 

24 leuchtend gelb 

25 pastellgelb 

26 leuchtend weiß 


Wird zusätzlich zu dem zwingend vorgeschriebenen Parameter 
ein zweiter Farbwert an das BORDER-Kommando angehängt, so 
wechselt die Farbe des Bildschirmrands zwischen diesen beiden 
Farben. Die Geschwindigkeit des Farbwechsels kann mit dem 
Befehl SPEED INK manipuliert werden. 
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CLG 

CLG [Farbstift] 

Das Kommando CLG löscht den Grafikbildschirm. Wurde das 
CLG-Kommando durchgeführt, so hat der Grafikbildschirm die 
Farbe angenommen, die dem angegebenen Farbstift zugeordnet 
ist. 


CLS 

CLS [#StreamJ 

Das Kommando CLS (CLear Screen) löscht den gesamten 
Bildschirm und setzt den Cursor in die linke obere Ecke des 
Textfensters. Nach einem ausgeführten CLS hat das Textfenster 
die Farbe des mit PAPER ausgewählten Farbstifts angenommen 
(vgl. CLG). 

Wird zur Spezifikation des CLS-Kommando ein Stream 
angegeben, so wird das durch den Stream vertretene Fenster 
nach den oben genannten Vorschriften gelöscht. 


COPYCHRS (nicht auf dem CPC 464) 

COPYCHR$( #Stream ) 

Mit der Funktion COPYCHRS ist es möglich, ein Zeichen von 
einer Position des Textbildschirms zu kopieren. Zu diesem 
Zweck wird der Textcursor auf eine bestimmte 
Bildschirmposition gebracht, mit COPYCHRS das Zeichen an 
dieser Position gelesen und einer Stringvariablen zugewiesen. 
Der Inhalt dieser Variablen kann dann beliebig weiterverwendet 
werden. Das folgende Beispielprogramm verdeutlicht den 
Zusammenhang: 
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10 CLS 

20 LOCATE 10,10 

30 PRINT 

40 LOCATE 10,10 

50 ZEICHEN$=COPYCHR$(#0) 

60 LOCATE 10,12 

70 PRINT ZEICHENS 

80 END 


Bei dieser BASIC-Funktion muß unbedingt angegeben werden, 
auf welches Window (Stream) sie sich beziehen soll. 

Eine Besonderheit von COPYCHRS muß noch beachtet werden. 
Sollte an der Bildschirmposition, von der gelesen werden soll, 
einmal etwas anderes stehen als das Bitmuster einer 
Zeichenmatrix, so kann COPYCHRS natürlich auch kein 
Zeichen identifizieren. Die Funktion liefert dann einen leeren 
String. 


CURSOR (nicht auf dem CPC 464) 

CURSOR [Schalter 1][,Schalter 2] 

Das BASIC-Kommando CURSOR dient zum Ein- (I) bzw. 
Ausschalten (0) der für das Erscheinen des Cursors auf dem 
Bildschirm zuständigen System- und Benutzerschalter. Der erste 
Schalter steht für das System, der zweite für den Benutzer. Der 
Cursor ist auf dem Bildschirm sichtbar, wenn beide Schalter 
eingeschaltet sind. 



5M 


Das eroße Grafikbuch zum CPC 


DRAW 

DRAW X-Position,Y-Position[,[ Farbstift] [ Modus 1 ] ] 

Mit dem BASIC-Kommando DRAW kann eine Linie gezogen 
werden. Startpunkt der Linie ist die aktuelle Position des 
Grafikcursors - Endpunkt, der durch X- und Y-Position 
bestimmte Punkt. Mit dem optionalen Parameter Farbstift kann 
bestimmt werden, mit welcher Farbe die Linie gezeichnet wird. 
Der Parameter kann Werte zwischen 0 und 15 annehmen. 

Mit dem Parameter Modus kann festgelegt werden, wie die 
Linie mit dem Hintergrund interagiert. Zur Auswahl stehen vier 
verschiedene Modi: 


Standardeinstellung = 0 
XOR-Verknüpfung = 1 
AND-Verknüpfung = 2 
0R-Verknüpfung = 3 


DRAWR 

DRAWR X-Offset,Y-Offset[,[Farbstift][Modus 1 ]] 

Das Kommando DRAWR arbeitet genau wie DRAW, nur daß 
der Endpunkt der Linie nicht durch absolute Koordinaten 
bestimmt wird, sondern durch einen X-/Y-Offset, der zu der 
aktuellen Position des Grafikcursors addiert wird. 


l 


Nicht auf dem CPC 464 
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FILL (nicht auf dem CPC 464) 

FILL Farbstift 

Mit dem BASIC-Kommando FILL können beliebige Flächen 
innerhalb des Grafikfensters des CPC gefüllt werden. Als 
Füllfarbe wird die dem Farbstift zugeordnete Farbe verwendet. 

Der Prozeß des Füllens beginnt immer an der aktuellen Position 
des Grafikcursors. Als Begrenzung des zu füllenden Bereichs 
wird ein Linienzug angesehen, der die gleiche Farbe hat wie der 
Farbstift, mit dem beim Füllen geschrieben wird. Ebenfalls als 
Begrenzung gilt eine Linie, die mit dem Farbstift gezogen 
wurde, der durch den Befehl GRAPHICS PEN bestimmt ist. 
Steht der Grafikcursor beim Aufruf der Fillroutine auf einer 
solchen Begrenzung, so wird der Füllvorgang unmittelbar 
abgebrochen. 


10 CLS 

20 HOVE 100,100 
30 DRAUR 0,200 
40 DRAUR 200,0 
50 DRAUR 0,-200 
60 DRAUR -200,0 
70 HOVE 200,200 
80 FILL 1 
90 END 


Dieses kleine Programm zeichnet zunächst ein Quadrat (Zeilen 
20 bis 60) und positioniert dann den Grafikcursor in die Mitte 
des Quadrats, womit die Voraussetzungen für das in Zeile 80 
erfolgende Füllen geschaffen wurden. 
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FRAME (nicht auf dem CPC 464) 

FRAME 

Dieses BASIC-Kommando synchronisiert das Schreiben auf dem 
Bildschirm mit dem Strahlrücklauf. Mit seiner Hilfe kann 
flimmerfrei auf dem Bildschirm gezeichnet werden. 


GRAPHICS PAPER (nicht auf dem CPC 464) 

GRAPHICS PAPER Farbstift 

Mit dem Kommando GRAPHICS PAPER wird die Farbe für 
den Hintergrund des Grafikbildschirms festgelegt. Es können 
Farbstifte aus dem Bereich 0 bis 15 angegeben werden. Das 
folgende Programm zeigt, wann der Hintergrund des 
Grafikbildschirms sichtbar wird. 


10 MODE 0 
20 TAG 

30 GRAPHICS PAPER 10 
40 HOVE 100,100 
50 PRIMT "A"; 


Das M A" wird in der eingestellten Zeichenfarbe auf den 
Bildschirm gebracht. Die Pixel der Zeichenmatrix, die bei der 
Darstellung des "A" nicht in Zeichenfarbe ausgegeben werden, 
nehmen die Farbe des mit GRAPHICS PAPER beeinflußten 
Hintergrundes an. 
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GRAPHICS PEN (nicht auf dem CPC 464) 

GRAPHICS PEN [Farbstift][ Modus] 

Mit dem BASIC-Kommando GRAPHICS PEN wird die Farbe, 
mit der auf dem Grafikbildschirm gezeichnet wird, festgelegt. 
Der Farbstift kann aus dem Bereich von 0 bis 15 stammen. 

Der Parameter Modus bestimmt, ob die Bildschirmausgabe mit 
(0) oder ohne Hintergrund erfolgen soll. Folgendes Programm 
gibt ein Zeichen ohne seinen Hintergrund auf dem 
Grafikbildschirm aus. 


10 MODE 0 
20 TAG 

30 GRAPHICS PEN 10,1 
40 HOVE 100,100 
50 PRINT "A"; 


Durch Ersetzen des zweiten Parameter durch eine 0 kann 
erwirkt werden, daß der Zeichenhintergrund wieder mit 
ausgegeben wird. 


INK 

INK Farbstift ,Farbnummer[ ,Farbnummer] 

Mit dem BASIC-Kommando INK werden den 16 möglichen 
Farbstiften des CPC ihre Farben zugeordnet. Als Farbstift kann 
eine Integerzahl aus dem Bereich 0 bis 15 eingesetzt werden. 
Abhängig vom eingestellten MODE ist die Anzahl der 
verfügbaren Farben unterschiedlich. In MODE 2 stehen 2 
Farben zur Verfügung (monochrom), in MODE 1 vier Farben 
und in MODE 0 sechzehn Farben. 
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Nach den Einschalten des Schneider-CPC sind die Farbstifte mit 
folgenden Farben vorbelegt: 


Farbstift 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


Farbe 
(MOOE 0) 

1 

24 

20 

6 

26 

0 

2 

8 

10 

12 

14 

16 

18 

22 

1,24 

16,11 


Farbe 
(MODE 1) 

1 

24 

20 

6 

1 

24 

20 

6 

‘ 1 
24 
20 
6 
1 

24 

20 

6 


Farbe 
(MOOE 2) 

1 

24 

1 

24 

1 

24 

1 

24 

1 

24 

1 

24 

1 

24 

1 

24 


Mit dem INK-Kommando kann die Defaultbelegung der Farb¬ 
stifte beliebig verändert werden. Werden beim INK-Kommando 
zwei Farbnummern angegeben, so wechselt die Farbe des zuge¬ 
ordneten Farbstiftes zwischen den beiden angegebenen Farben. 
Die Geschwindigkeit des Farbwechsels kann mit SPEED INK 
verändert werden. 


LOCATE 

LOCA TE[#Stream ,]X- Position ,Y-Position 

Mit dem LOCATE-Kommando kann der Textcursor an eine 
beliebige Position des Textfensters gebracht werden. Durch 
Angabe eines Streams kann angezeigt werden, daß der 
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Textcursor in einem anderen als Fenster #0 bewegt werden soll. 
Die Anzahl der möglichen Y-Positionen für den Textcursor ist 
immer 25; die möglichen X-Positionen differieren - abhängig 
vom eingestellten MODE - zwischen 20, 40 und 80. Der 
Koordinatenursprung (1,1) für das LOCATE-Kommando liegt 
an der Home-Position des Textfensters (linke obere Ecke). 


MASK (nicht auf dem CPC 464) 

MASK [Bitmuster][,Schalter] 

Mit dem BASIC-Kommando MASK wird bestimmt, welches 
Bitmuster beim Zeichnen einer Linie zur Anwendung kommt. 
Für Bitmuster darf ein Wert zwischen 0 und 255 eingesetzt 
werden. Rechnet man diesen Wert in eine Dualzahl um (oder 
trägt unmittelbar die Dualzahl als Parameter ein), so steht jedes 
gesetzte Bit für ein gesetztes Pixel innerhalb eines acht Bit 
großen Abschnitts der Linie. Nach jeweils acht Bit wiederholt 
sich das Muster der Linie. 


Striche: MASK 6X11110000 
Punkte: MASK &X10101010 
Strich-Punkt: MASK 6X11100100 
Voll-Linie: MASK 6X11111111 


Bevor die Schablone verändert wurde, zeichnet der CPC - 
grundsätzlich eine durchgezogene Linie. 

Der zweite Parameter des MASK-Kommando (Schalter) kann 0 
oder 1 sein. Bei einer eingetragenen Null wird der erste Punkt 
einer Linie nicht gezeichnet; steht eine Eins, so wird der erste 
Punkt gezeichnet. 
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MODE 

MODE Parameter 

Das MODE-Kommando bestimmt den Bildschirmmodus. Bei 
Eingabe eines MODE-Kommandos werden alle Fenster, der 
Text- und der Grafikcursor auf ihre Defaultwerte gebracht. Als 
Parameter kann die 0, 1 oder 2 gegeben werden. 


MODE 0: 20 Spalten, 16 Farben 
MODE 1: 40 Spalten, 4 Farben 
MOOE 2: 80 Spalten, 2 Farben 


Neben dem Auflösungsvermögen des Bildschirms beeinflußt das 
MODE-Kommando auch die Anzahl der maximal gleichzeitig 
darstellbaren Farben. 


MOVE 

MOVE X-Position,Y-Position] ,Farbstift 1 ][Modus 1 ] 

Mit dem MOVE-Kommando wird der Grafikcursor an eine 
absolute Position auf dem Grafikbildschirm bewegt. Die 
Koordinaten, zu denen der Grafikcursor bewegt werden soll, 
sind als Parameter zum MOVE-Kommando angegeben. Soll der 
aktuelle Grafikfarbstift durch einen anderen ersetzt werden, so 
kann das durch die Angabe einer Farbstiftnummer für den 
Parameter Farbstift erreicht werden. 

Mit dem Parameter Modus kann festgelegt werden, wie der 
aktuelle Farbstift mit dem Hintergrund interagiert. Zur Auswahl 
stehen vier verschiedene Modi: 


1 


Nicht auf dem CPC 464 
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Standardeinstellung = 0 
XOR-Verknüpfung = 1 
AND-Verknüpfung = 2 
OR-Verknüpfung = 3 


MOVER 

MOVER X-OffsetfY-Offsetf,Farbstift ][,Modus x ] 

Das Kommando MOVER arbeitet genau wie MOVE, nur daß 
die Parameter nicht die absoluten Koordinaten für den 
Grafikcursor darstellen, sondern einen X-/Y-Offset, der zu der 
aktuellen Position des Grafikcursors addiert werden muß, um 
die neue Position des Grafikcursors zu gewinnen. 


ORIGIN 

ORIGIN X,Y[,links,rechts,oben,unten] 

Das BASIC-Kommando ORIGIN setzt den Koordinatenursprung 
(0,0) für das Grafikfenster an den durch die Parameter X und Y 
bestimmten Punkt. Durch Angabe vier optionaler Parameter 
kann der Grafikbildschirmbereich begrenzt werden. 


PAPER 

PAPER'[ XStream,] Farbstift 

Mit dem PAPER-Kommando kann die Hintergrundfarbe 
verändert werden. Die Anzahl der zur Verfügung stehenden 
Farbstifte ist vom aktiven MODE abhängig. Durch die Angabe 
eines Streams kann die Veränderung der Hintergrundfarbe für 
ein anderes Fenster als #0 geltend gemacht werden. 


1 
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PEN 


PEN [#Stream,][Farbstift][Modus 1 ] 

Mit dem PEN-Kommando kann die Farbe, in der Zeichen auf 
dem Bildschirm erscheinen, verändert werden. Die Anzahl der 
zur Verfügung stehenden Farbstifte ist vom aktiven MODE ab¬ 
hängig. Durch die Angabe eines Streams kann die Veränderung 
der Hintergrundfarbe für ein anderes Fenster als #0 geltend 
gemacht werden. Der Parameter Modus bestimmt, ob die 
Bildschirmausgabe transparent (1) oder nicht (0) erfolgen soll. 


PLOT 

PLOT X~Position,Y-Position[,Farbstift][Modus 1 ] 

Mit dem PLOT-Kommando wird der Grafikcursor an eine 
absolute Position auf dem Grafikbildschirm bewegt und an 
dieser Stelle ein Pixel ausgegeben. Soll der aktuelle 
Grafikfarbstift durch einen anderen ersetzt werden, so kann das 
durch die Angabe einer Farbstiftnummer für den Parameter 
Farbstift erreicht werden. 

Mit dem Parameter Modus kann festgelegt werden, wie der 
aktuelle Farbstift mit dem Hintergrund interagiert. Zur Auswahl 
stehen vier verschiedene Modi: 


Standardeinstellung = 0 
XOR-Verknüpfung = 1 
AND-Verknüpfung * 2 
OR-Verknüpfung = 3 


Nicht auf dem CPC 464 





Anhang 


562 


PLOTR 

PLOTR X-Offset,Y-Offset[,Farbstift][Modus 1 ] 

Das Kommando PLOTR arbeitet genau wie PLOT, nur daß die 
Parameter nicht die absoluten Koordinaten für die Ausgabe des 
Pixels darstellen, sondern einen X-/Y-Offset, der zu der 
aktuellen Position des Grafikcursors addiert werden muß, um 
die neue Position zu gewinnen, an der das • Pixel ausgegeben 
werden soll. 


POS 

POS(#Stream) 

Die BASIC-Funktion POS liefert die aktuelle X-Koordinate 
(bezogen auf den linken Rand des Bildschirms), an der sich der 
Textcursor befindet. Der Stream muß unbedingt als Ergänzung 
zu dieser Funktion angegeben werden. 


SPEED INK 

SPEED INK Dauer 1,Dauer 2 

Mit den BASIC-Kommandos BORDER und INK ist es möglich, 
zwei Farben zu definieren, die abwechselnd an einer 
eingefärbten Stelle erscheinen sollen. Die Geschwindigkeit des 
Farbwechsels läßt sich mit dem Kommando SPEED INK 
verändern. Der Parameter Dauer 1 bestimmt, wie lange die erste, 
der Parameter Dauer 2, wie lange die zweite Farbe sichtbar sein 
soll. Die Zeitdauer kann in Einheiten von Fünfzigstelsekunden 
bestimmt werden. 


l 


Nicht auf dem CPC 464 
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SYMBOL 

SYMBOL Zeichennummer,Zeichenmatrix 

Das BASIC-Kommando SYMBOL benötigt neun ergänzende 
Parameter, deren Werte zwischen 0 und 255 liegen müssen. 

Mit dem ersten Wert der auf SYMBOL folgt (Zeichennummer), 
wird festgelegt, welches Zeichen durch eine neue vom Benutzer 
definierte Matrix ersetzt werden soll. Die acht dann folgenden 
Parameter definieren die Matrix. 


10 SYMBOL AFTER 123 

20 SYMBOL 123,8X11011011,4X00111100,4X01100110,4X01100110,4X011111 
10,4X01100110,4X01100110,8X00000000 


Dieses Programm definiert mit Hilfe des BASIC-Kommandos 
SYMBOL das Zeichen 123 ({) in ein "Ä M um. Die gewählte 
binäre Notation für die letzten acht Parameter verdeutlicht die 
Beziehung zur Zeichenmatrix. Ist im ersten dieser acht 
Parameter das signifikanteste Bit gesetzt, so wird dieses Bit auch 
in der Zeichenmatrix gesetzt. Analoges gilt für alle übrigen Bits 
der letzten acht Parameter (vgl. CHR$(25)). 

Zu beachten ist vor der Anwendung des SYMBOL-Kommandos, 
daß mit SYMBOL AFTER die gewünschte Zeichennummer zur 
Umdefinition vorbereitet wurde. 


SYMBOL AFTER 

SYMBOL AFTER Parameter 

Mit dem Kommando SYMBOL AFTER wird festgelegt, welche 
Zeichen vom Benutzer umdefiniert werden können. Der 
Parameter kann Werte zwischen 0 und 255 annehmen, die dann 
die Zeichennummer wider spiegeln, ab der (einschließlich) alle 
Zeichen durch vom Benutzer mit SYMBOL definierte Zei- 
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chenmatrizen ersetzt werden können. Wird als Parameter der 
Wert 256 an das SYMBOL AFTER-Kommando angehangen, so 
können keine neuen Zeichen definiert werden. 


TAG 

TAG [#Stream] 

Das BASIC-Kommando TAG bestimmt, daß ab sofort die Aus¬ 
gabe von Textzeichen nicht mehr an der Position des Textcur¬ 
sors, sondern an der Position des Grafikcursors erfolgen soll. 
Dabei wird der Text so ausgegeben, daß die höchstwertigste 
Pixelposition in einer Zeichenmatrix an den Koordinaten des 
Grafikcursors steht. Durch die Angabe des optionalen 
Streamparameters wird festgelegt, aus welchem Stream die 
auszugebenden Textzeichen bezogen werden sollen. 

Wird nach gegebenem TAG mit PRINT eine Textausgabe 
vorgenommen, so muß sie mit einem abgeschlossen werden, 
da anderenfalls Steuerzeichen als Textzeichen ausgegeben 
werden. 


TAGOFF 

TAGOFF [VStream] 

Das BASIC-Kommando TAGOFF macht ein gesetztes TAG für 
den angegebenen Stream rückgängig, so daß die Textausgabe 
wieder an der Position des Textcursors erfolgt. 


TEST 

TEST( X- Position, Y- Position ) 

Die Funktion TEST setzt den Grafikcursor auf die als Parameter 
angegebene Bildschirmposition. Dann liefert TEST die Nummer 
des Farbstifts, der an dieser Position verwendet wurde. 
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TESTR 

TESTR(X-Offset,Y -Offset) 

Die Funktion TESTR setzt den Grafikcursor, gemäß dem 
angegebenen X- und Y-Offset, relativ zu seiner ursprünglichen 
Position. Dann liefert TESTR die Nummer des Farbstifts, der an 
dieser Position verwendet wurde. 


VPOS 

VPOS(#Stream) 

Die BASIC-Funktion VPOS liefert die aktuelle Y-Koordinate 
(bezogen auf den oberen Rand des Bildschirms), an der sich der 
Textcursor befindet. Der Stream muß unbedingt als Ergänzung 
zu dieser Funktion angegeben werden. 


WINDOW 

WINDOW [#Stream,] links,rechts,oben,unten 

Das BASIC-Kommando WINDOW definiert die Größe eines 
Fensters. Da es sich bei den einzugebenden Koodinaten um 
Koordinaten des Textbildschirms handelt, ist die Spaltenanzahl 
des eingestellten MODE bei der Definition eines Fensters zu be¬ 
rücksichtigen. Wird kein Stream angegeben, so bezieht sich das 
Kommando automatisch auf Stream #0. 


WINDOW SWAP 

WINDOW SWAP Stream,Stream 

Das Kommando WINDOW SWAP vertauscht die durch die 
beiden Streams bestimmten Bildschirmbereiche miteinander. E>en 
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Streamnummern darf kein "#" vorangestellt werden, um die 
Syntax von WINDOW SWAP nicht zu verletzen. 


XPOS 

XPOS 

Die BASIC-Funktion XPOS liefert die aktuelle X-Koordinate, 
an der sich der Grafikcursor befindet. 


YPOS 

YPOS 

Die BASIC-Funktion YPOS liefert die aktuelle Y-Koordinate, 
an der sich der Grafikcursor befindet. 
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Adresse 

ist ein Speicherplatz, der in der Regel als eine 2-Byte-hexadezi- 
male Zahl spezifiziert wird. Der Adreßbereich (0 bis 32767) 
wird dezimal dargestellt als [0000 to FFFFJ [-32768,...,-1]. 

Akkumulator (Akku) 

CPU-Register, in dem Ergebnisse arithmetischer, logischer und 
Ein-/Ausgabeoperationen gebildet werden. 

Algorithmus (RechenVorschrift) 

Eine Schrittweise vorgehende Ausarbeitung eines Lösungsweges 
für ein gestelltes Problem wird Algorithmus genannt. Ein Algo¬ 
rithmus kann durch beliebige Symbole oder Sprachelemente aus¬ 
gedrückt werden. 

alphabetisch 

bezieht sich strikt auf die Buchstaben A bis Z. 
alphanumerisch 

bezieht sich auf die Buchstaben A bis Z und die Ziffern 0 bis 9. 

Anweisung (statement) 

ist in BASIC eine komplette Instruktion. 

Arbeitsspeicher 
(siehe RAM) 

Argument 

ist ein String (Zeichenfolge) oder eine numerische Menge, die an 
eine Funktion geht, dort bearbeitet wird und ein Ergebnis brin¬ 
gen soll. Dieses Ergebnis ist der Wert der Funktion. 

Array 

(siehe Datenfeld) 
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ASCII (American Standard Code for Information Interchange) 
International normierter 7-Bit-Code, der zum Speichern von 
Textdaten und Datenaustausch verwendet wird. 

Assembler 

Programmiersprache, bei der der binäre Maschinencode durch 
einfach zu merkende Kürzel (Mnemonics) dargestellt wird. 

BASIC 

Abkürzung für Beginners All purpose Symbolic Instruction 
Code. 

Basisadresse 

Durch Verknüpfung der Basisadresse mit einem Offset (Relativ¬ 
adresse) wird eine absolute Adresse gewonnen. 

Binär (binary) 

Es gibt nur zwei mögliche Darstellungen, entweder 0 oder 1. Das 
binäre Zahlensystem (auf der Basis von 2) benutzt zur Darstel¬ 
lung von Mengen Nullen und Einsen. Dies entspricht der inter¬ 
nen Darstellung von Daten im Computer, bei der für 0 und 1 
elektrische Zustände verwendet werden. 

Bit 

Abkürzung für Binary Digit. Ein Bit ist die kleinste Speicher¬ 
einheit im Computer und stellt die Werte 0 und 1 dar. 

Buffer 

(siehe Puffer) 

Byte 

ist die kleinste adressierbare Speichereinheit im Computer. Sie 
besteht aus 8 Bits und kann 256 verschiedene Werte darstellen, 
z.B. die Dezimalwerte von 0 bis 255. 

Charakter 

(siehe Zeichen) 
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Charakter-Grafik 

Computergrafik, die aus einer Vielzahl von Zeichen, und Son¬ 
derzeichen, die mit dem Charakter-Generator des Computers 
erzeugt werden, besteht. 

Cursor 

wird die Markierung genannt, die die nächste Schreibposition 
anzeigt. 

Daten 

sind Informationen, die an ein Programm gehen oder aus einem 
Programm kommen. Es gibt vier Arten von Daten: 

- Ganzzahlen 

- Zahlen mit einfacher Genauigkeit 

- Zahlen mit doppelter Genauigkeit 

- Zeichenfolgen (Strings) 

Datenfeld (Array) 

ist ein organisierter Satz von Elementen, die insgesamt oder 
einzeln über den Namen des Datenfeldes und ein oder mehrere 
Subskripte angesprochen werden können. In BASIC kann jeder 
variable Namen zur Benennung eines Datenfeldes verwendet 
werden. Datenfelder können eine oder mehrere Dimensionen 
haben. AR(x) bedeutet ein eindimensionales Feld mit dem 
Namen AR; AR(x,y) bedeutet ein zweidimensionales Feld mit 
dem Namen AR usw. 

Default 

ist eine Aktion oder ein Wert, der vom Programm geliefert wird, 
wenn Sie nicht angegeben haben, welche Aktion oder welcher 
Wert vorgenommen bzw. verwendet werden soll. 

Device 

(siehe Gerät) 

Dezimal 

Es gibt 10 mögliche Zahlendarstellungen, nämlich von 0 bis 9. 
Das Dezimalsystem (auf der Basis von 10) ist uns aus dem Alltag 
geläufig. Verwendet wird eine Folge von dezimalen Ziffern. Der 
Schneider-CPC speichert die Dezimalzahlen im Binärcode. 
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Disassembler 

sind Programme, die einen Hexcode in die mnemonische Dar¬ 
stellung übersetzen und die korrekte Befehlslänge erkennen. 

Diskette 

ist ein magnetisches Aufzeichnungsmedium zur Speicherung 
großer Datenmengen. 

Drahtmodell 

So nennt man die mit Hilfe der Vektorgrafik generierten drei¬ 
dimensionalen Objekte. 

Editieren/Bearbeiten 

Hierdurch werden die vorhandenen Informationen geändert. 
Gerät (Device) 

Hierunter versteht man den physikalischen Teil des Computer¬ 
systems, der für die Ein-/Ausgabe von Daten verwendet wird, 
z.B. die Tastatur, der Bildschirm oder der Drucker. 

Hexadezimal (Hex) 

Im Hexadezimalformat sind 16 Darstellungen möglich. Die hexa¬ 
dezimalen Ziffern werden mit 0, 1, 2,..., 9, A, B, C, D, E, F, 
dargestellt. Hexadezimale Zahlen (auf der Basis von 16) sind 
Folgen von hexadezimalen Ziffern. Adreß- und Byte-Werte 
werden häufig in hexadezimaler Form angegeben. Beim Schnei- 
der-CPC können hexadezimale Konstanten eingegeben werden, 
indem man diese mit einem Präfix oder "#" versieht. 

Inkrement 

ist der Wert, um den der Zähler jedesmal erhöht wird, wenn 
eine sich wiederholende Prozedur beendet wird. 

Interpreter 

z.B. BASIC-Interpreter - deutet und führt die Programmierbe¬ 
fehle zeilenweise als Folge von Maschinenbefehlen aus. 
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Kilobyte oder KByte 

sind 1024 Speicher-Bytes. Somit hat ein 64-KByte-System eine 
Speicherkapazität von 64 x 1024 = 65536 Bytes. 

Kompatibilität 

nennt man die Austauschbarkeit von Systemteilen oder Pro¬ 
grammen, die ohne Modifikation auf einem anderen System 
verwendet werden können. 

LSB 

Abkürzung für niederwertiges Byte (Low-Byte). 

LSN 

Abkürzung für niederwertiges Nibble (Halbbyte). 
Maschinensprache 

ist z.B. der Z80A-Befehlssatz, der im allgemeinen im Hexadezi- 
mal-Code spezifiziert wird. Alle höheren Programmiersprachen 
müssen in die Maschinensprache übersetzt oder von der Maschi¬ 
nensprache interpretiert werden, um vom Computer ausgeführt 
werden zu können. 

Menü 

nennt man Übersichtstafeln, die dem Benutzer anzeigen, was als 
nächstes zu tun ist bzw. welche Alternativen sich anbieten. 

Mnemonic 

Unter einem mnemonischen Code versteht man einen Code, 
dessen Abkürzung einen Hinweis auf seine Eigenschaften ent¬ 
hält. 

MSB 

Abkürzung für höchstwertiges Byte (High-Byte). 

MSN 

Abkürzung für höchstwertiges Nibble (Halbbyte). 

Nibble 

Bezeichnung für eine Gruppe von vier Bits (Halbbyte). 
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Paramter 

sind Informationen, die zusammen mit einem Befehl geliefert 
werden und spezifizieren, wie der Befehl verarbeitet werden 
soll. 

Peripherie 

nennt man alle Ein- und Ausgabegeräte, Speicher und Hilfs- 
Speicher, die sich außerhalb des Rechners befinden und mit ihm 
Zusammenarbeiten. 

Pixel 

Fachausdruck für Grafikpunkt. 

Puffer 

sind im Rechner reservierte Bereiche, in denen Daten zwischen¬ 
gespeichert werden können. 

Pufferspeicher (Buffer) 

ist ein Bereich im RAM-Speicher, in dem Daten für die weitere 
Verarbeitung akkumuliert werden. 

RAM (Random Access Memory) 

Schreib-/Lesespeicher mit wahlfreiem Zugriff. 

Raster-Grafik 

Ein Verfahren, mit dessen Hilfe der Bildschirm Punkte auf ge¬ 
teilt wird, die einzeln beeinflußt (an- oder ausgeschaltet bzw 
umgefärbt) werden können. 

ROM (Read Only Memory) 

Nur Lesespeicher, der auch nach dem Abschalten der Stromver¬ 
sorgung seinen Inhalt behält. 

Routine/Unterprogramme 

ist eine Folge von Befehlen zur Ausführung einer bestimmten 
Funktion. Typischerweise ist eine Routine ein Unterprogramm, 
das von mehreren Stellen im Programm aufgerufen wird. 
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Sonderzeichen 

In der Datenverarbeitung faßt man alle Zeichen, die weder 
Buchstaben noch Ziffer sind - z.B. V, BAH - unter dem Be¬ 
griff Sonderzeichen zusammen. 

Statement 
(siehe Anweisung) 

Stream 

Der Stream bezieht sich auf die Ein-/Ausgabe des Schneider- 
CPC. Mit der Stream-Nummer kann ein derartige Ein-/Aus- 
gabeschnittstelle angesprochen werden. 

Syntax/Schreibweise 

Unter Syntax versteht man die "grammatischen’’ Vorschriften für 
einen Befehl oder eine Anweisung. Allgemein bezieht sich die 
Syntax auf die Zeichensetzung und die Reihenfolge der Ele¬ 
mente einer Anweisung. 

Unterbrechung (Break) 

unterbricht die Ausführung eines Programms. In BASIC bewirkt 
eine STOP-Anweisung die Unterbrechung des Programms, 
ebenso die BREAK-Taste. 

Vektor 

1. Programmspeicheradresse, die dem Rechner abhängig 
von einem bestimmten Ergebnis mitgeteilt wird. 

2. siehe Datenfeld 

3. eine gerichtete, orientierte Strecke im Raum. 
Vektorgrafik 

die Vektorgrafik ist ein Verfahren, das es gestattet, dreidimen¬ 
sionale Körper mit einem Computer darzustellen. Körper, die 
mit Hilfe von Vektorgrafiken generiert wurden, bestehen aus 
einer Vielzahl von Linien, die die Kanten des Objekts symboli¬ 
sieren. 

Wire Frame 
(siehe Drahtmodell) 
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Zeichen 

Ein Zeichen ist ein vom Computer generiertes Bildelement. 
Buchstaben und Ziffern sind beispielsweise die häufig verwen¬ 
dete Zeichen. 
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- DasVideo-Ram 
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